Найти среднее арифметическое отрицательных чисел и среднее геометрическое положительных элементов массива - QBasic

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

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

Дан массив Х(20) с целыми числами диапазон (-25 +25) Найти среднее арифметическое отрицательных чисел и среднее геометрическое положительных элементов массива.

Решение задачи: «Найти среднее арифметическое отрицательных чисел и среднее геометрическое положительных элементов массива»

textual
Листинг программы
  1. CLS
  2. OPTION BASE 1
  3. CONST n = 20
  4. DIM x(n) AS INTEGER
  5.  
  6. FOR i = 1 TO n
  7.    x(i) = 50 * RND - 25
  8.    PRINT x(i);
  9. NEXT i: PRINT : PRINT
  10.  
  11. FOR i = 1 TO n
  12.    IF x(i) > 0 THEN n1 = n1 + 1
  13.    IF x(i) < 0 THEN n2 = n2 + 1
  14. NEXT i
  15.  
  16. p = 1
  17. IF n1 THEN
  18.    FOR i = 1 TO n
  19.       IF x(i) > 0 THEN p = p * x(i)
  20.    NEXT i
  21.    PRINT "SRED. GEOM. ="; p ^ (1 / n1)
  22. ELSE
  23.    PRINT "POLOSH. CHISEL NET"
  24. END IF
  25. PRINT
  26.  
  27. IF n2 THEN
  28.    FOR i = 1 TO n
  29.       IF x(i) < 0 THEN s = s + x(i)
  30.    NEXT i
  31.    PRINT "SRED. ARIFM. ="; s / n2
  32. ELSE
  33.    PRINT "OTRIZ. CHISEL NET"
  34. END IF
  35. END

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

  1. Объявлен массив x(n) размером n=20 для хранения чисел.
  2. В цикле заполняются элементы массива x(i) случайными числами от -25 до 25.
  3. В каждой итерации цикла проверяется знак числа x(i).
  4. Если число положительное, то увеличивается счетчик положительных чисел n1.
  5. Если число отрицательное, то увеличивается счетчик отрицательных чисел n2.
  6. После завершения цикла проверяется значение счетчиков n1 и n2.
  7. Если есть положительные числа, то вычисляется среднее геометрическое положительных чисел и выводится на экран.
  8. Если нет положительных чисел, то выводится сообщение POLOSH. CHISEL NET.
  9. Если есть отрицательные числа, то вычисляется среднее арифметическое отрицательных чисел и выводится на экран.
  10. Если нет отрицательных чисел, то выводится сообщение OTRIZ. CHISEL NET.

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


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

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

13   голосов , оценка 4.462 из 5

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

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

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