В массиве найти максимум, минимум и сумму элементов до максимума. - QBasic

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

Дан массив 15 элементов. Найти у него максимум, минимум и сумму элементов до максимума.

Решение задачи: «В массиве найти максимум, минимум и сумму элементов до максимума.»

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

DATA 1, 8, 10, 15, 18, 6, 3, 8, 11, 2, 5, 13, 7, 4, 9
CLS
  DIM a(14)
  FOR i = 0 TO 14     '  Заполним массив
     READ a(i)
  NEXT
  min = a(0): max = min
  FOR i = 0 TO 14     '  Найдём минимум & максимум
     s = s + a(i)     '  и сумму
     IF a(i) < min THEN min = a(i)
     IF a(i) > max THEN max = a(i)
  NEXT
  sum = s - max
  PRINT "Max ="; max  '  Результат на экран
  PRINT "Min ="; min
  PRINT "Sum ="; sum

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

В этом коде:

Создаётся массив a(14) с помощью команды DIM a(14).
Заполняется массив с помощью цикла FOR и команды READ a(i).
Инициализируются переменные min и max значением первого элемента массива a(0).
Суммируются все элементы массива с помощью цикла FOR и команды s = s + a(i).
Переменной min присваивается минимальное значение из массива, а переменной max — максимальное значение с помощью условных операторов IF.
Находится сумма всех элементов массива, кроме максимального, с помощью формулы s = sum — max.
Выводятся на экран значения переменных max, min и sum с помощью команды PRINT.