Скалярное произведение строки с наибольшим элементом матрицы на столбец с наименьшим элементом - QBasic

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

Дана матрица целых чисел X(n, п). Вывести матрицу и скалярное произведение строки с наибольшим элементом матрицы на столбец с наименьшим элементом матрицы. Значения буквенных переменных и элементов матрицы задавать с клавиатуры.

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

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

CLS
CONST n = 3
DIM X(1 TO n, 1 TO n) AS INTEGER
 
FOR i = 1 TO n
FOR j = 1 TO n
   PRINT "X("; i; ","; j; ")";
   INPUT X(i, j)
NEXT j, i
PRINT
 
FOR i = 1 TO n
FOR j = 1 TO n
   PRINT X(i, j);
NEXT j: PRINT
NEXT i: PRINT
 
max = X(1, 1)
min = X(1, 1)
imax = 1
jmin = 1
 
FOR i = 1 TO n
FOR j = 1 TO n
   IF max < X(i, j) THEN max = X(i, j): imax = i
   IF min > X(i, j) THEN min = X(i, j): jmin = j
NEXT j, i
 
FOR i = 1 TO n
   skp = skp + X(imax, i) * X(i, jmin)
NEXT i
 
PRINT "SKAL PRO ="; skp
 
END

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

Объявлены матрица X и переменные n, max, min, imax, jmin, skp
Выводится размерность матрицы X(1 TO n, 1 TO n)
Пользователю предлагается ввести значения элементов матрицы X
Находится максимальное значение в первой строке, оно присваивается переменной max, а индекс этого элемента — переменной imax
Находится минимальное значение в первой столбце, оно присваивается переменной min, а индекс этого элемента — переменной jmin
Происходит поиск максимального и минимального значений в матрице X, обновляя значения переменных max, min, imax, jmin
Вычисляется скалярное произведение строки с наибольшим элементом матрицы X и столбца с наименьшим элементом, результат сохраняется в переменной skp
Выводится значение переменной skp