Разработать алгоритм обеспечения нахождения минимального элемента массива и его индекса - QBasic

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

разработать алгоритм обеспечения нахождения минимального элемента массива и его индекса, максимального элемента и его индекса, вычисления суммы положительных элементов массива.

Решение задачи: «Разработать алгоритм обеспечения нахождения минимального элемента массива и его индекса»

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

min=1
FOR i=1 TO n
IF a(i)<a(min)THEN min=i 
NEXT
PRINT min, a(min)

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

В начале программы объявляются две переменные: min и n. Значение переменной min устанавливается равным 1, а переменная n инициализируется значением количества элементов в массиве a.
Далее следует цикл FOR, который выполняется от 1 до n.
Внутри цикла происходит проверка: если значение элемента массива a с индексом i меньше значения элемента массива a с индексом min, то значение переменной min присваивается значение i.
После завершения цикла FOR происходит вывод на экран значения переменной min и значения элемента массива a с индексом min.