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

Question

Информатика

Розалия

30 июня, 13:06

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

+1

Ответы (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.