Question

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

Answer 1

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]<min)then min:=a[i,j];
writeln(min);
end;
end;
begin
minimum(n,m);
end.