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.