В матрице определите номер столбца, который содержит элементы, дающие минимальную сумму среди всех столбцов матрицы. Найти среднеа

[dvpvitas]

В матрице определите номер столбца, который содержит элементы, дающие минимальную сумму среди всех столбцов матрицы. Найти среднеарифметическое в нем.

[Вадим Мошев]

Что не получается? Наработки есть?

[newerow1989]

var p:array[1..5,1..12] of integer;
    sum:array[1..12] of integer;
    i,j,jmin:integer;
    sr:real;
begin
   Randomize;
   For i:=1 to 5 do
   begin
      For j:=1 to 12 do
      begin
         p[i,j]:=Random(21);
         Write(p[i,j],'  ');
      end;
      Writeln;
   end;
   Writeln;
   For j:=1 to 12 do
   begin
      sum[j]:=0;
      For i:=1 to 5 do
         sum[j]:=sum[j]+p[i,j];
      Write(sum[j],'  ');
   end;
   Writeln;
   Writeln;
   jmin:=1;
   For j:=2 to 12 do
      If sum[j]<sum[jmin] then
         jmin:=j;
   Writeln(jmin);
   sr:=sum[jmin]/5;
   Writeln(sr:5:2);
   Readln;
end.

Сойдет?