Определить порядковый номер самого дешевого вида конфет - QBasic

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

В массиве хранится информация о стоимости 1 кг 30 видов конфет. Определить порядковый номер самого дешевого вида конфет. Если таких номеров несколько, то должен быть найден номер первого из них. Как записать это в бейсике ???

Или составить алгоритм )

Или пример какой нибудь... ппц

Решение задачи: «Определить порядковый номер самого дешевого вида конфет»

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

    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

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

Сначала программа запрашивает у пользователя количество видов конфет, которые он хочет сравнить (n).
Затем программа создает массив e размером n для хранения информации о каждом виде конфет.
Далее, происходит заполнение массива e с помощью цикла FOR и оператора INPUT.
После заполнения массива, программа определяет минимальное значение в массиве с помощью переменных min1 и min2.
Переменная min1 инициализируется значением первого элемента массива e, а переменная min2 инициализируется значением индекса этого элемента.
Затем программа проходит по всем элементам массива e с помощью цикла FOR и оператора PRINT, печатая каждый элемент массива.
Если текущий элемент меньше значения min1, то он становится новым значением min1, а min2 получает значение индекса текущего элемента.
После завершения цикла, программа печатает значения min1 и min2.
Затем программа меняет местами последний и первый элементы массива e с помощью оператора SWAP.
Наконец, программа печатает обновленный массив e с помощью цикла FOR и оператора PRINT.