shrek2

const n=3; m=3;
var a:array [1..n,1..m] of integer;

i,j,z,x,max,min:integer;
begin
randomize;
min:=30;
writeln('Do:');

for i:=1 to n do begin
for j:=1 to m do begin
a[i,j]:=random (20)-10;
write (a[i,j]:3);
end;
writeln;
end;
writeln('Min sredi strok:');
for i:=1 to n do begin
for j:=1 to m do begin
if (a[i,j]<=min) then begin min:=a[i,j]; end;
end;
write(min:3);
min:=30;
end;
writeln;
writeln('Min sredi stolbcov:');
for i:=1 to m do begin
for j:=1 to n do begin
if (a[j,i]<=min) then begin min:=a[j,i]; end;
end;
write(min:3);
min:=30;
end;


end.