Дан двухмерный массив 5x6. Определить среднее арифметическое каждого столбца, определить максимум и минимум каждой строки.

[newerow1989]

На Паскале

var p:array[1..5,1..6] of real;
    i,j:integer;
    sr,min,max:real;
begin
   Randomize;
   For i:=1 to 5 do
   begin
      For j:=1 to 6 do
      begin
         p[i,j]:=-10+Random(20)+Random;
         Write(p[i,j]:8:5,'  ');
      end;
      Writeln;
   end;
   Writeln;
   For j:=1 to 6 do
   begin
      sr:=0;
      For i:=1 to 5 do
         sr:=sr+p[i,j]/5;
      Write(sr:8:5,'  ');
   end;
   Writeln;
   Writeln;
   For i:=1 to 5 do
   begin
      min:=p[i,1];
      max:=p[i,1];
      For j:=2 to 6 do
      begin
         If min>p[i,j] then
            min:=p[i,j];
         If max<p[i,j] then
            max:=p[i,j];
      end;
      Writeln('min = ',min:8:5,'; max = ',max:8:5);
   end;
   Writeln;
   Readln;
end.

Сойдет?