Var a:array[1..5,1..3]of integer; i,j,s,smin,n:integer; begin n:=1; for i:=1 to 5 do begin for j:=1 to 3 do begin a[i,j]:=random(10); write(a[i,j]:4); s:=s+a[i,j]; end; if i=1 then smin:=s; if s<smin then begin smin:=s; n:=i; end; writeln('sum=':8,s); s:=0; end; writeln('Номер искомой строки: ',n); end.
a:array[1..5,1..3]of integer;
i,j,s,smin,n:integer;
begin
n:=1;
for i:=1 to 5 do
begin
for j:=1 to 3 do
begin
a[i,j]:=random(10);
write(a[i,j]:4);
s:=s+a[i,j];
end;
if i=1 then smin:=s;
if s<smin then
begin
smin:=s;
n:=i;
end;
writeln('sum=':8,s);
s:=0;
end;
writeln('Номер искомой строки: ',n);
end.