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

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

Дана квадратная матрица целых чисел размером nхn. Вычислить скалярное произведение строки с максимальным элементом и столбца с минимальным элементом матрицы.

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

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

DEFINT A, I-J, N, P
OPTION BASE 1
RANDOMIZE TIMER
CLS
INPUT "Vvedite N"; n
DIM a(n, n)
FOR i = 1 TO n
   FOR j = 1 TO n
      a(i, j) = 21 * RND - 10.5
      PRINT USING "####"; a(i, j);
   NEXT j
   PRINT
NEXT i
 
min = a(1, 1)
max = a(1, 1)
ii = 1
jj = 1
FOR i = 1 TO n
   FOR j = 1 TO n
      IF a(i, j) > max THEN
         max = a(i, j)
         ii = i
      END IF
      IF a(i, j) < min THEN
         min = a(i, j)
         jj = j
      END IF
   NEXT j
NEXT i
 
p = 0
FOR i = 1 TO n
   p = p + a(ii, i) * a(i, jj)
NEXT i
 
PRINT "SKALARNOE PROIZVEDENIE ="; p
END

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

В этом коде вычисляется скалярное произведение строки с максимальным элементом и столбца с минимальным элементом матрицы. Вот список действий, которые выполняются в коде:

Пользователю предлагается ввести число N, которое определяет размер матрицы.
Создается матрица размером N на N с элементами, полученными путем умножения 21*RND-10.5, где RND генерирует случайное число от 0 до 1.
На экран выводится содержимое матрицы.
Начинается поиск максимального элемента матрицы, который будет храниться в переменной max, и соответствующей строки, которая будет храниться в переменной ii.
Начинается поиск минимального элемента матрицы, который будет храниться в переменной min, и соответствующего столбца, который будет храниться в переменной jj.
Вычисляется скалярное произведение строки с максимальным элементом и столбца с минимальным элементом матрицы, которое будет храниться в переменной p.
На экран выводится значение скалярного произведения.