Найти в матрице минимальный элемент и определить его местоположение - 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)
 
FOR i = 1 TO n
   FOR j = 1 TO m
      a(i, j) = 21 * RND - 10.5
      PRINT USING "####"; a(i, j);
   NEXT j
   PRINT
NEXT i
 
b = a(1, 1)
FOR i = 1 TO n
   FOR j = 1 TO m
      IF b > a(i, j) THEN b = a(i, j)
   NEXT j
NEXT i
PRINT
PRINT "MINIMALNYI ELEMENT = "; b
PRINT
FOR i = 1 TO n
   FOR j = 1 TO m
      IF a(i, j) = b THEN PRINT "i = "; i; "j = "; j
   NEXT j
NEXT i
END

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

В этом коде:

Пользователю предлагается ввести два числа N и M (строки 6-7), которые определяют размер матрицы (N строк, M столбцов).
Создается матрица a размером N на M (строка 9).
В цикле заполняются все элементы матрицы случайными числами от -10.5 до 21.5 (строки 11-14).
Находится минимальный элемент матрицы, которым оказывается первый элемент первого столбца (строки 18-22).
С помощью циклов и условного оператора IF находится позиция минимального элемента в матрице (строки 24-27).
Выводится сообщение с минимальным элементом и его местоположением (строки 29-31).