Ввести матрицу А(5,6). Найти минимальный элемент в каждом столбце
матрицы и записать их в виде одномерного массива. Массив вывести на печать с
заголовком «Массив минимумов». Поиск минимумов оформить процедурой. Для
В(7, 9) аналогично.

Program gt;
const n=5;m=6;
var i,j:integer;
a:array[1..100,1..100]of integer;
procedure minimum(n,m:integer);
var i,j,min:integer;
begin
for i:=1 to n do
for j:=1 to m do
read(a[i,j]);
writeln(Массив минимумов);
for i:=1 to n do
begin
min:=a[i,1];
for j:=1 to m do
if(a[i,j]writeln(min);
end;
end;
begin
minimum(n,m);
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.