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

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

Среди 5-ти элементов найти минимальные и вывести на экран их модули

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

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

DATA 1, 2, 4, -3, 0
  CLS
  FOR i = 1 TO 5
     READ E
     IF i = 1 THEN Min = E
     IF E < Min THEN Min = E
  NEXT
PRINT "Min ="; Min
PRINT "Abs ="; ABS(Min)

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

В этом коде используется цикл FOR для чтения элементов массива и нахождения минимального значения.

DATA 1, 2, 4, -3, 0 - задан массив с пятью элементами.
CLS - очистка экрана перед выводом результата.
FOR i = 1 TO 5 - цикл проходит по элементам массива от 1 до 5.
READ E - элемент массива E считывается в переменную E.
IF i = 1 THEN Min = E - если это первый элемент массива, то он становится минимальным.
IF E < Min THEN Min = E - если текущий элемент меньше минимального значения, то он становится новым минимальным.
NEXT - переход к следующему элементу массива.
PRINT Min =; Min - вывод на экран сообщения о минимальном значении.
PRINT Abs =; ABS(Min) - вывод на экран абсолютного значения минимального числа.