uses crt;
const n=4; m=4;
var a:array[1..n,1..m]of integer;
i,j,mini,minj,maxi,maxj,s,max:integer;
begin
clrscr;
randomize;
writeln('Исходная матрица');
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(100);
write(a[i,j]:3);
end;
writeln;
end;
mini := 1;
minj := 1;
maxi := 2;
maxj := 2;
for i:=1 to N do for j:=1 to M do if a[i,j] < a[mini,minj] then
begin
mini := i;
minj := j;
end else if a[i,j] > a[maxi,maxj] then
begin
maxi := i;
maxj := j;
end;
writeln('MIN - A[',mini,',',minj,'] = ',a[mini,minj]);
writeln('MAX - A[',maxi,',',maxj,'] = ',a[maxi,maxj]);
max:=0;
for j:=1 to M do max:=max+a[1,j];
maxi:=1;
for i:=2 to N do
begin
s:=0;
for j:=1 to M do s:=s+a[i,j];
if s>max then
begin
max:=s;
maxi:=i;
end;
end;
for j:=1 to M do write(a[maxi,j],' ');
readln;
end.