Получить массив из минимальных элементов соответствующих столбцов исходной матрицы - QBasic

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

Дана матрица целых чисел размером nхm. Получить одномерный массив, элементы которого – минимальные элементы соответствующих столбцов исходной матрицы.

Решение задачи: «Получить массив из минимальных элементов соответствующих столбцов исходной матрицы»

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

DEFINT A-B, I-J, M-N
OPTION BASE 1
RANDOMIZE TIMER
CLS
INPUT "Vvedite N"; n
INPUT "Vvedite M"; m
DIM a(n, m)
DIM b(m)
 
PRINT
FOR i = 1 TO n
   FOR j = 1 TO m
      a(i, j) = 81 * RND - 40.5
      PRINT USING "####"; a(i, j);
   NEXT j
   PRINT
NEXT i
 
FOR j = 1 TO m
   b(j) = a(1, j)
NEXT j
 
FOR j = 1 TO m
   FOR i = 1 TO n
      IF a(i, j) < b(j) THEN b(j) = a(i, j)
   NEXT i
NEXT j
 
PRINT
FOR j = 1 TO m
   PRINT USING "####"; b(j);
NEXT j
END

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

Определение размеров матрицы a(n, m) и массива b(m)
*Заполнение матрицы a(n, m) случайными числами от 81 RND - 40.5**
Вывод на экран содержимого матрицы a(n, m)
Заполнение массива b(m) минимальными значениями из первого столбца матрицы a(n, m)
Поиск минимальных значений в каждом столбце матрицы a(n, m) и занесение их в массив b(m)
Вывод на экран содержимого массива b(m)