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.
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.