Найти скалярное произведение векторов и наибольшую из координат вектора А - QBasic

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

1) Даны координаты 2-х N - мерных векторов А и B. Найти их скалярное произведение и наибольшую из координат вектора А 2) Даны 2 одномерных числовых массива размерностью N. Создать третий массив, элементы которого равны сумме элементов двух других. Найти наименьший элемент этого массива.

Решение задачи: «Найти скалярное произведение векторов и наибольшую из координат вектора А»

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

CLS
INPUT "n ="; n
DIM a(1 TO n), b(1 TO n), c(1 TO n)
FOR i = 1 TO n
    a(i) = INT(RND * 100) - 50
    b(i) = INT(RND * 100) - 50
NEXT i
min = c(1)
imin = 0
FOR i = 1 TO n
    c(i) = a(i) + b(i)
    IF c(i) < min THEN min = c(i): imin = i
    PRINT a(i), b(i), c(i)
NEXT i
PRINT "Naimenshii v C="; min

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

В первой строке используется команда CLS для очистки экрана.
Вторая строка запрашивает у пользователя ввод числа n, которое будет использоваться как размер массива.
Третья строка определяет массивы a, b и c размером n.
Четвертая строка начинает цикл, который заполняет массив a случайными числами от -50 до 50.
Пятая строка делает то же самое для массива b.
Шестая строка инициализирует переменную min значением первого элемента массива c, а переменную imin значением 0.
Седьмая строка начинает цикл, который суммирует элементы массива a и b и сохраняет результат в массив c.
Восьмая строка проверяет, является ли текущий элемент массива c наименьшим, и если да, то обновляет значение min и imin.
Девятая строка выводит на экран значения текущего элемента массива a, b и c.
Десятая строка повторяет это для каждого элемента массива.
Одиннадцатая строка выводит на экран значение min.
Двенадцатая строка заканчивает цикл.
Тринадцатая строка заканчивает программу.