(PASCAL) Дан двухмерный массив целых чисел. Найти столбец с максимальной суммой элементов
Ответы на вопрос
Ответил SeryiLis
0
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.
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.
Новые вопросы
Алгебра,
2 года назад
Математика,
2 года назад
Литература,
9 лет назад
Литература,
9 лет назад
Алгебра,
9 лет назад