Найти наименьшее число в массиве - QBasic

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

Даны два массива чисел a и b по 15 чисел в каждом. Найти наименьшее чесло в новом массиве с, элементы которого образуются по правилу с=a+b

Решение задачи: «Найти наименьшее число в массиве»

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

n = 15
DIM a(n), b(n), c(n)
FOR i = 1 TO n
    PRINT "vvedite a("; i; "): "
    INPUT a(i)
NEXT
FOR i = 1 TO n
    PRINT "vvedite b("; i; "): "
    INPUT b(i)
NEXT
FOR i = 1 TO n
    c(i) = a(i) + b(i)
NEXT
FOR i = 1 TO n
    PRINT c(i);
NEXT
min = c(1)
FOR i = 1 TO n
    IF c(i) < min THEN min = c(i)
NEXT
PRINT
PRINT "min="; min

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

В этом коде:

Задается размер массива n = 15, и массивы a, b и c инициализируются с этим размером DIM a(n), b(n), c(n).
В цикле FOR запрашивается ввод значений для массива a.
Затем в цикле FOR запрашивается ввод значений для массива b.
В цикле FOR значения из массива a и b складываются и записываются в массив c.
В цикле FOR значения из массива c выводятся на экран.
Переменная min инициализируется значением первого элемента массива c(1).
В цикле FOR проверяется, является ли текущий элемент массива c меньше значения переменной min, и если да, то значение переменной min обновляется.
После завершения циклов выводится на экран значение переменной min. Этот код предназначен для поиска наименьшего числа в массиве c.