unit l11;
interface
const ms=5;ns=5;
type massiv=array[1..ms,1..ns] of real;
procedure input(var mas:massiv;m,n:byte);
procedure output(mas:massiv; m,n:byte);
function min(mas:massiv; m,n:byte):real;
implementation
procedure input;
var i,j:byte;
begin
write('m=');
readln(m);
write('n=');
readln(n);
for i:=1 to m do
for j:=1 to n do
begin
write('mas[',i,',',j,']=');
readln(mas[i,j]);
end;
end;
procedure output;
var i,j:byte;
begin
for i:=1 to m do
begin
for j:=1 to n do
write(mas[i,j]:4);
writeln;
end;
end;
function min;
var i,j:byte;
begin
min:=mas[1,1];
for i:=2 to m do
for j:=2 to n do
if mas[i,j]<min(mas,m,n) then min:=mas[i,j]
end;
end.