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.