Сформировать массив из минимальных элементов столбцов матрицы - Pascal ABC

Формулировка задачи:

Дан массив А(N,M).В каждом столбце найти минимальный элемент. Из полученных значений сформировать одномерный массив.

Решение задачи: «Сформировать массив из минимальных элементов столбцов матрицы»

Листинг программы

program dev9tb;
uses crt;
const n1=20;n2=20;
type matrix=array[1..n1,1..n2] of integer;
type vector=array[1..400]of integer;
var n,m:integer;
    a:matrix;
    b:vector;
 
procedure RandomMatrix(var a:matrix; var n,m:integer);
var i,j:integer;
begin
write('Введите кол-во строк матрицы ');
readln(n);
write('Введите кол-во столбцов матрицы ');
readln(m);
randomize;
for i:=1 to n do
for j:=1 to m do
a[i,j]:=random(30)-15
end;
 
procedure PrintMatrix(a:matrix; n,m:integer);
var i,j:integer;
begin for i:=1 to n do
begin for j:=1 to m do
write(a[i,j]:4);
writeln;
end;
end;
 
procedure formb(a:matrix;var b:vector; n,m:integer);
var i,j,t,min:integer;
begin
t:=1;
for j:=1 to n do
begin
min:=a[1,j];
for i:=1 to m do
begin
if a[i,j]<min then 
min:=a[i,j];
end;
b[t]:=min;
t:=t+1;
end;
write('Массив B: ');
for i:=1 to t-1 do
write(b[i],' ');
end;
 
 
 
begin 
RandomMatrix(a,n,m);
writeln('Матрица А: ');
PrintMatrix(a,n,m);
writeln;
formb(a,b,n,m);
writeln();
end.

Объяснение кода листинга программы

В программе объявлены две переменные типа matrix и vector с соответствующими размерами.
Задаются константы n1 и n2, которые определяют размеры массивов в программе.
Создается переменная n с целочисленным значением, которая будет использоваться для чтения количества строк матрицы.
Создается переменная m с целочисленным значением, которая будет использоваться для чтения количества столбцов матрицы.
Создается переменная a с типом array[1..n1,1..n2] of integer, которая будет представлять матрицу.
Вызывается процедура RandomMatrix, которая случайным образом заполняет матрицу a значениями от -15 до 15.
Вызывается процедура PrintMatrix, которая выводит матрицу a на экран.
Создается переменная b с типом array[1..400] of integer, которая будет представлять вектор.
Вызывается процедура formb, которая формирует вектор b из минимальных значений матрицы a.
Выводится сообщение о том, что вектор b сформирован.
Выводится вектор b на экран.