>>1061971 (OP)
Бамп

>>1061971 (OP)

http://book.kbsu.ru/theory/chapter7/1_7_9.html
http://life-prog.ru/1_17056_nishodyashchaya-razrabotka.html
http://www.irkinfo.ru/tekhnologiya-programmirovaniya-str35.html

>>1062012
Спасибо, мир твоему дому.

const n=10; m=10;
var A,lol:array [0..n,0..m] of integer;
B,C:array [0..n] of integer;
i,j,max,mmax, modul,i1,i2, l,k,sum,mul,a1,a2,sumd:integer;
begin
randomize;

for j:=0 to n do
begin
for i:=0 to m do A[j]:=random(100);
end;

for j:=0 to n do
begin
for i:=0 to m do Write(A[j]:5);
writeln;
end;

i2:=0;
for j:=0 to n do
begin
i1:=0;
for i:=0 to m do i1:=i1+A[j];
if i2<i1 then
begin
i2:=i1;
k:=j;
end;

end;
writeln(k);


end.