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

Узнай цену своей работы

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

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

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

textual
Листинг программы
  1. CLS
  2. RANDOMIZE TIMER
  3. n = 25
  4. DIM x(1 TO n)
  5.  
  6. FOR i = 1 TO n
  7.    x(i) = INT(30 * RND)
  8.    PRINT x(i);
  9. NEXT
  10. PRINT : PRINT
  11.  
  12. FOR i = 1 TO n - 1
  13. FOR j = i + 1 TO n
  14.    IF x(i) > x(j) THEN SWAP x(i), x(j)
  15. NEXT j, i
  16.  
  17. s1 = x(22) + x(23) + x(24) + x(25)
  18. s2 = x(1) + x(2) + x(3) + x(4)
  19. PRINT "SUMMA MAX ="; s1
  20. PRINT "SUMMA MIN ="; s2
  21. END

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

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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

15   голосов , оценка 4.2 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы