Свормировать массив, вычислить произведение его минимального и максимального элементов - QBasic

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

написать программу формирования одномерного массива размера М. результат напечатать. вычислить произведение минимального и максимального элементов массива. результат напечатать. поменять местами первый и последний элементы массива. результат напечатать.

Решение задачи: «Свормировать массив, вычислить произведение его минимального и максимального элементов»

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

CLS
 
RANDOMIZE TIMER
n = 12
DIM A(1 TO n) AS INTEGER
 
FOR i = 1 TO n
   A(i) = 10 * RND + 3
   PRINT A(i);
NEXT i: PRINT : PRINT
 
min = A(1)
max = A(1)
 
FOR i = 1 TO n
   IF min > A(i) THEN min = A(i)
   IF max < A(i) THEN max = A(i)
NEXT i
PRINT " Min * Max ="; min * max
PRINT
SWAP A(1), A(n)
FOR i = 1 TO n
   PRINT A(i);
NEXT i
 
END

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

Создается массив A размером 12, элементы которого заполняются случайными целыми числами от 3 до 103 (включительно).
Вычисляется произведение минимального и максимального элементов массива A.
Минимальный и максимальный элементы массива A равны первому элементу массива A(1).
Происходит перебор всех элементов массива A от 1 до 12.
Если текущий элемент меньше минимального значения, то он становится новым минимальным значением.
Если текущий элемент больше максимального значения, то он становится новым максимальным значением.
Производится обмен первого и последнего элементов массива A.
Происходит перебор всех элементов массива A от 1 до 12.
Выводятся все элементы массива A.