Определить индекс минимального и индекс максимального значений массива - QBasic

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

Дан одномерный массив! Определить индекс минимального и индекс максимального значений? Очень срочно! Заранее благодарю!!!

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

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

INPUT "enter n: ", n
DIM a(n)
FOR i = 1 TO n
    PRINT "enter a("; i; ")";
    INPUT ": ", a(i)
NEXT
FOR i = 1 TO n
    PRINT a(i);
NEXT
PRINT
min = a(1)
imin = 1
FOR i = 2 TO n
    IF a(i) < min THEN min = a(i): imin = i
NEXT
max = a(1)
imax = 1
FOR i = 2 TO n
    IF a(i) > max THEN max = a(i): imax = i
NEXT
PRINT "index min: "; imin
PRINT "index max: "; imax

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

Код на языке QBasic выполняет следующие действия:

Вводит от пользователя количество элементов массива (n).
Выделяет память под массив a(n).
Запрашивает у пользователя значения элементов массива a(i) и сохраняет их в переменную a(i).
Выводит на экран все значения массива a(i).
Находит минимальное значение массива a(i) и сохраняет его в переменную min.
Находит индекс минимального значения массива a(i) и сохраняет его в переменную imin.
Находит максимальное значение массива a(i) и сохраняет его в переменную max.
Находит индекс максимального значения массива a(i) и сохраняет его в переменную imax.
Выводит на экран индекс минимального значения массива a(i).
Выводит на экран индекс максимального значения массива a(i).