const
n=4;
m=5;
var
z:array[1..n,1..m] of integer;
i,j,k,min,max,min_i,max_i:integer;
begin
for i := 1 to n do
for j := 1 to m do
begin
write('z[',i,',',j,]=');
readln(z[i,j]);
end;
for i:=1 to n do
begin
k:=0;
for j:=1 to m do
k:=k+z[i,j];
if i=1
then
begin
min:=k;
max:=k;
min_i:=1;
max_i:=1;
end
else
begin
if k<min
then
begin
min:=k;
min_i:=i;
end;
if k>max
then
begin
max:=k;
max_i:=i;
end;
end;
end;
writeln;
writeln('min ',min_i,' stroka');
writeln('min ',min);
for j:=1 to m do
write(z[min_i,j]:4);
writeln;
writeln;
writeln('max ',max_i,' stroka');
writeln('max ',max);
for j:=1 to m do
write(z[max_i,j]:4);
writeln;
readln;
end. |
