АЯ
Анечка Якубенко
uses crt;
var t:array [1..12,1..15] of integer;
i,j, kmin,kmax, n,m,s,smin,smax : integer;
begin
clrscr;
write ('n= ');
readln (n);
write ('m= ');
readln (m);
writeln ('massiv T');
for i:=1 to n do
begin
for j:=1 to m do
begin
t[i,j]:= random(11)-5;
write (t[i,j]:6);
end;
writeln;
end;
kmin:=1; kmax:=1;
smin:=32768;
smax:=-32767;
for i:=1 to n do
begin
s:=0;
for j:=1 to m do
s:=s+ t[i,j];
if smin>=s
then
begin
smin:=s; kmin:=i;
end;
if smax