Найти минимальный элемент массива - QBasic (27873)

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

Помогите решить две задачки, пожалуйста. 1. Задан массив из 15 элементов. Элементы массива вводятся с клавиатуры. Найти минимальный элемент массива. 2. Продолжить оператор PRINT, использующий значения заданных переменных, чтобы получить на экране следующие выражения.

                    Листинг программы
                
X=17
Y=5
A=?
B=(X-Y) * A
PRINT ... ... ..?

Экран: Через 36 минут закончиться пара.

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

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

DIM a(15)
FOR x=1 TO 15
INPUT a(x)
NEXT x
min=a(1)
FOR x=2 TO 15
IF a(1)>a(x) THEN min=a(x)
NEXT x
PRINT min

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

В этом коде:

Создается массив a размером 15.
В каждой ячейке массива пользователю предлагается ввести число.
После ввода всех чисел, находится минимальное значение в массиве.
Результат выводится на экран.