Program name;
const n=5;m=4;
type mas=array[1..n,1..m] of real;
var i,j:integer;
a:mas;
min:real;
str,sto:integer;
begin
randomize;
 for i:=1 to n do
  begin
   for j:=1 to m do
   begin
    a[i,j]:=random(150-(-150)+1)-150;
    write(a[i,j]:5:0);
   end;
   writeln;
  end;
min:=a[1,1];
str:=1;
sto:=1;
for i:=1 to n do
   for j:=1 to m do
   if a[i,j]<min then
   begin
    min:=a[i,j];
    str:=i;
    sto:=j;
   end;
writeln;
writeln('Минимум по всей матрице: ', min:5:1);
for i:=1 to n do
 begin
 write('Строка ',i);
 min:=a[i,1];
 sto:=1;
   for j:=2 to m do
    if a[i,j]<min then
     begin
      min:=a[i,j];
      sto:=j;
     end;
    writeln(' Минимум ',min:5:0,' в столбце ',sto);
 end;
 for i:=1 to m do
 begin
 write('Столбец ',i);
 min:=a[1,i];
 str:=1;
   for j:=2 to n do
    if a[j,i]<min then
     begin
      min:=a[j,i];
      str:=j;
     end;
    writeln(' минимум ',min:5:0,' в строке ',str);
 end;
End.