Pascal abc: Дан двумерный массив размерностью 10 на 10 . Найти сумму элементов максимальных в каждом столбце.

[Artemikkk]

Дан двумерный массив размерностью 10 на 10 . Найти сумму элементов максимальных в каждом столбце.

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

Что-то сами пытались сделать?

[newerow1989]

var i,j,s:integer;
    p:array[1..10,1..10] of integer;
    m:array[1..10] of integer;
begin
   Randomize;
   For i:=1 to 10 do
   begin
      For j:=1 to 10 do
      begin
         p[i,j]:=Random(21);
         Write(p[i,j]:2,'  ');
      end;
      Writeln;
   end;
   Writeln;
   s:=0;
   For j:=1 to 10 do
   begin
      m[j]:=p[1,j];
      For i:=2 to 10 do
         If m[j]<p[i,j] then
            m[j]:=p[i,j];
      Write(m[j]:2,'  ');
      s:=s+m[j];
   end;
   Writeln;
   Writeln('s = ',s);
   Readln;
end.