Дана последовательность чисел, найти наименьшее число - QBasic

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

Входные данные: Заданно сначало число N (количество чисел в последовательности), а затем N чисел. Выходные данные: Выведите наименьшее число. Пример входного файла: 7 4 2 5 -1 4 6 2 Пример выходного файла -1 Помогите решить

Решение задачи: «Дана последовательность чисел, найти наименьшее число»

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

min=a(1)
for i=1 to n
if a(i)<min then min=a(i)
next

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

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