Определить минимальный элемент массива - QBasic

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

Определить минимальный элемент массива E(n) и его порядковый номер, найденный минимальный элемент поменять местами с последним элементом масcива.

Решение задачи: «Определить минимальный элемент массива»

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

CLS
INPUT "N"; n
DIM e(n)
FOR i = 1 TO n
    INPUT e(i)
NEXT
CLS
min1 = e(1)
PRINT "massiv:"
FOR i = 1 TO n
    PRINT e(i);
    IF e(i) < min1 THEN min1 = e(i): min2 = i
NEXT
PRINT
PRINT "min    :"; min1;
PRINT "ego p/n:"; min2
SWAP e(min2), e(n)
PRINT "noviy massiv:"
FOR i = 1 TO n
    PRINT e(i);
NEXT

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

Задается размер массива с помощью команды INPUT N; n.
Создается массив e(n) с помощью команды DIM e(n).
В цикле FOR i = 1 TO n происходит заполнение массива e(i) значениями, которые вводятся с клавиатуры с помощью команды INPUT e(i).
Команда CLS используется для очистки экрана.
Первая переменная min1 инициализируется значением первого элемента массива e(1) с помощью команды min1 = e(1).
Выводится сообщение massiv: и все элементы массива e(i) выводятся на экран с помощью команды FOR i = 1 TO n; PRINT e(i);.
Вторая переменная min2 инициализируется значением индекса первого минимального элемента с помощью команды IF e(i) < min1 THEN min1 = e(i): min2 = i.
Выводится сообщение min : и значение переменной min1, а затем сообщение ego p/n: и значение переменной min2.
Команда SWAP e(min2), e(n) используется для обмена последним и первым элементами массива e.
Выводится сообщение noviy massiv: и все элементы массива e(i) выводятся на экран с помощью команды FOR i = 1 TO n; PRINT e(i);.