Адача по паскалю в первой строке 2 числа m,n.дальше описывается m строк по n символов. найти строку, которая по сумме больше остальных. пример 3 3 2 3 1 6 6 1 1 1 1 ответ 13

215

478

Посмотреть ответы 3

Ответы на вопрос:

VOLKODAV770

Информатика

4,5(70 оценок)

Var a: array [1..10, 1..10] of integer; i,j,s1,s2,m,n: integer; begin writeln('введите через пробел m, n: '); read(m,n); randomize; for i: =1 to m do begin for j: =1 to n do begin a[i,j]: =random(10); write(a[i,j],' ') end; writeln; end; for i: =1 to m do begin s2: =0; for j: =1 to n do if i=1 then s1: =s1+a[i,j] else s2: =s2+a[i,j]; if s2> s1 then s1: =s2; end; writeln(s1) end.

Nicotenlove

Информатика

4,5(8 оценок)

Var a: array[1..100,1..100]of integer; m,n,i,j,s,max: integer; begin readln(m,n); for i: =1 to m do begin s: =0; for j: =1 to n do begin a[i,j]: =random(100); write(a[i,j]: 4); s: =s+a[i,j]; end; if s> max then max: =s; writeln; end; writeln('s: ',max); end.