program new_mas;
uses crt;
const
     n=5;
     m=7;
var
     a,b:array[1..n,1..m] of integer;
     c,d,f:array[1..n] of integer;
     i,j,mina,minb:integer;
begin
clrscr;
randomize;
for i:=1 to n do             {создаем массивы А и В}
    begin
      for j:=1 to m do
      begin
        a[i,j]:=random(9)+1;
        b[i,j]:=random(9)+1;
      end;
    end;
writeln('массив А:');
for i:=1 to n do             {выводим на экран массив А}
    begin
      writeln;
      for j:=1 to m do
        write(a[i,j],' ');
    end;
    readln;
    writeln;
writeln('массив B:');
for i:=1 to n do             {выводим на экран массив B}
    begin
      writeln;
      for j:=1 to m do
        write(b[i,j],' ');
     end;
     readln;
     writeln;
for i:=1 to n do             {создаем массив мин.элементов*массива a[i,j]}
    begin
      mina:=a[i,1];
      for j:=1 to m do
         begin
           if a[i,j]then mina:=a[i,j];
         end;
    c[i]:=mina;
    end;
writeln('минимальные элементы массива* A:');
for i:=1 to n do             {выводим его на экран}
   write(c[i],' ');
   readln;
   writeln;
for i:=1 to n do             {создаем массив мин.элементов*массива b[i,j]}
    begin
      minb:=b[i,1];
      for j:=1 to m do
         begin
           if b[i,j]then minb:=b[i,j];
         end;
      d[i]:=minb;
    end;
writeln('минимальные элементы в строках массива В:');
for i:=1 to n do             {выводим его на экран}
   write(d[i],' ');
   readln;
   writeln;
for i:=1 to n do    {вычисляем произведения минимальных элементов}
    begin
      f[i]:=c[i]*d[i];
    end;
writeln('новый массив F:');
for i:=1 to n do         {выводим новый массив на экран}
    write(f[i],' ');
    readln;
end.