Задан двухмерный массив А = (а i, j), нужно найти номер строки сумма элементов в которой является наибольшей.

Question

Информатика

Соломон

4 августа, 22:22

Задан двухмерный массив А = (а i, j), нужно найти номер строки сумма элементов в которой является наибольшей.

+3

Ответы (1)

Знаете ответ на вопрос?

Селена · Answer 1

Var a:array[1 ... 100,1 ... 100] of integer; sum, i, j, index, tmp:integer;

beginrandomize; sum:=-1; for i:=1 to 10 dobegin tmp:=0; for j:=1 to 10 do begin a[i, j]:=random (10) ; tmp: = tmp + a[i, j]; write (a[i, j],' ') ; end; if (sum < tmp) then begin sum:=tmp; index:=i; end; write (' SUM [', tmp,']') ; writeln; end; writeln (index) ;

end.