Программирование в Паскаль. Массивы

[Марина97]

Программирование в Паскаль. Массивы

Помогите ,пожалуйста! Буду благодарна !
Написать программу в Паскаль.
В каждой из 10 геологических проб определено процентное содержание 5 химических
элементов. Для каждого элемента определить пробы с наименьшим и с наибольшим его
содержанием.

 

[Vladimir_S]

Помогите ,пожалуйста! Буду благодарна ! Написать программу в Паскаль.

Ох, тоска...
Не успел семестр начаться, как понеслось: напишите мне, я скатаю и сдам, а сам (в данном случае, сама) учиться не желаю, пошла тусить.
Марина, поймите, идея выехать на форумах - прямой путь к отчислению. Мой Вам совет - беритесь за ум, пока не поздно! Впрочем, как знаете - Вам жить.

Const
 N_el=5;
 N_pr=10;

Var
 A:Array[1..N_pr,1..N_el] of Byte;
 C_min,C_max:Byte;
 i,j,Sum,I_min,I_max:Byte;

Begin
 Randomize;
 for i:=1 to N_pr do
  begin
   Sum:=0;
   for j:=1 to N_el do
    begin
     A[i,j]:=Random(100-Sum);
     Inc(Sum,A[i,j]);
    end;
  end;

 Writeln('            El_1    El_2    El_3    El_4    El_5');
 for i:=1 to N_pr do
  begin
   if i<10 then Write('Test_0',i) else Write('Test_',i);
   for j:=1 to N_el do write(A[i,j]:8);
   Writeln;
  end;

 Writeln;

 for j:=1 to N_el do
  begin
   I_min:=1;
   I_max:=1;
   C_max:=A[1,j];
   C_min:=A[1,j];
   for i:=2 to N_pr do
    begin
     if A[i,j]<C_min then
      begin
       C_min:=A[i,j];
       I_min:=i;
      end;
     if A[i,j]>C_max then
      begin
       C_max:=A[i,j];
       I_max:=i;
      end;
    end;
   Writeln('Element_',j,':   Minimal - test N ',I_min:2,',   Maximal - test N ',I_max:2);
  end;
 Readln
End.