Question

(PASCAL) Дан двухмерный массив целых чисел. Найти столбец с максимальной суммой элементов

Answer 1

Var  a: array[0..1000, 0..1000] of integer;  n, l, s, maxs, max: longint;
begin  for var i := 1 to 1000 do    for var j := 1 to 1000 do       a[i, j] := 0;  maxs := 0;  read(n);  read(l);  for var i := 1 to n do    for var j := 1 to l do     begin      read(a[i, j])    end;  s := 0;  for var i := 1 to n do  begin    for var j := 1 to l do      s := s + a[i, j];        if (s > maxs) then begin maxs := s; max := i; end;    s := 0;  end;    writeln(max);end.