Адача срочно по Паскалю В первой строке 2 числа M,N.Дальше описывается M СТРОК по N символов. Найти строку, которая по сумме больше остальных. Пример 3 3 2 3 1 6 6 1 1 1 1 Ответ 13

Адача срочно по Паскалю В первой строке 2 числа M,N.Дальше описывается M СТРОК по N символов. Найти строку, которая по сумме больше остальных. Пример 3 3 2 3 1 6 6 1 1 1 1 Ответ 13
Гость
Ответ(ы) на вопрос:
Гость
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.
Гость
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.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы