Найти наибольший и наименьший элементы прямоугольной матрицы и поменять их местами - QBasic

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

1) Пусть дана действительная матрица размером N x M. Требуется преобразовать матрицу: поэлементно последнюю строку из всех строк,кроме последней. 2)Найти наибольший и наименьший элементы прямоугольной матрицы и поменять их местами. 3)Определит наименьший элемент каждой четной строки матрицы A[M,N].

Решение задачи: «Найти наибольший и наименьший элементы прямоугольной матрицы и поменять их местами»

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

CLS
INPUT "N"; n
INPUT "M"; m
PRINT "Matrica:"
FOR i = 1 TO n: FOR j = 1 TO m
        a(i, j) = INT(100 * RND(1) - 50)
        PRINT a(i, j);
NEXT: PRINT: NEXT
max = a(1, 1): min = a(1, 1)
FOR i = 1 TO n: FOR j = 1 TO m
        IF a(i, j) < min THEN min = a(i, j): mini = i: minj = j
        IF a(i, j) > max THEN max = a(i, j): maxi = i: maxj = j
NEXT: NEXT
SWAP a(mini, minj), a(maxi, maxj)
PRINT "Matrica (novay):"
FOR i = 1 TO n: FOR j = 1 TO m
        PRINT a(i, j);
NEXT: PRINT: NEXT

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

В первой строке программы, с помощью функции CLS, очищается экран.
Далее, с помощью функции INPUT, вводятся размеры матрицы (n и m).
Затем выводится сообщение Matrica: и с помощью двух вложенных циклов FOR (от 1 до n по строкам и от 1 до m по столбцам) выводятся значения ячеек матрицы a(i, j).
После этого, в отдельной части программы, находятся минимальное и максимальное значения матрицы (min и max) и сохраняются в переменных a(1, 1), так как в начале программы это значение по умолчанию.
Затем, с помощью двух вложенных циклов FOR (от 1 до n по строкам и от 1 до m по столбцам) ищутся новые минимальное и максимальное значения матрицы, и если найденное значение меньше или больше текущего значения min или max, то оно присваивается соответствующей переменной, а также сохраняются индексы текущего элемента (mini и minj или maxi и maxj).
После завершения циклов, с помощью функции SWAP, меняются местами значения в ячейках a(mini, minj) и a(maxi, maxj).
Затем выводится сообщение Matrica (novay) и с помощью двух вложенных циклов FOR (от 1 до n по строкам и от 1 до m по столбцам) выводятся значения ячеек матрицы a(i, j).