Найти сумму четырёх наибольших и четырёх наименьших элементов массива - QBasic (27123)

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

Дан массив из 25 элементов найти сумму 4 наибольших х четырех наименьших элементов Результат распечатать в виде: Массив: Сумма наибольших = Сумма наименьших =

Решение задачи: «Найти сумму четырёх наибольших и четырёх наименьших элементов массива»

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

CLS
RANDOMIZE TIMER
n = 25
DIM x(1 TO n)
 
FOR i = 1 TO n
   x(i) = INT(30 * RND)
   PRINT x(i);
NEXT
PRINT : PRINT
 
FOR i = 1 TO n - 1
FOR j = i + 1 TO n
   IF x(i) > x(j) THEN SWAP x(i), x(j)
NEXT j, i
 
s1 = x(22) + x(23) + x(24) + x(25)
s2 = x(1) + x(2) + x(3) + x(4)
PRINT "SUMMA MAX ="; s1
PRINT "SUMMA MIN ="; s2
END

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

Объявлен массив x(1 TO n) размером n = 25 и инициализирован случайными целыми числами от 0 до 30.
Выполняется два цикла FOR для сортировки массива по возрастанию.
Внутренний цикл сортирует элементы массива, сравнивая их и меняя местами при необходимости.
Внешний цикл выполняет 4 итерации, так как отсортированный массив имеет длину n - 1 = 24.
Вычисляются суммы s1 и s2, которые представляют собой суммы четырех наибольших и четырех наименьших элементов массива соответственно.
Выводятся на экран значения переменных s1 и s2. END.