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

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

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

Помогите мне пожалуйста составить программу вычисления среднего арифметического отрицательных элементов массива B(n) и найденное среднее арифметическое записать в массив B как n+1

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

textual
Листинг программы
  1. INPUT "vvedite razmer massiva ",n
  2. DIM b(n+1)
  3. FOR i=1 TO n
  4. INPUT "vvedite element ",b(i)
  5. NEXT
  6. PRINT "ishodnyj massiv"
  7. FOR i=1 TO n
  8. PRINT b(i);
  9. NEXT
  10. PRINT
  11. FOR i=1 TO n
  12. IF b(i)<0 THEN k=k+1:s=s+b(i)
  13. NEXT
  14. sred=s/k
  15. PRINT"sreddnee znachenie polojitelnyh=";sred
  16. b(n+1)=sred
  17. PRINT "novyj massiv"
  18. FOR i=1 TO n+1
  19. PRINT b(i);
  20. NEXT
  21. END

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

В этом коде:

  1. Пользователю предлагается ввести размер массива (размер укажет количество элементов, которые будут добавлены в массив).
  2. Создается массив, который может содержать n+1 элементов (n - количество элементов, введенных пользователем, + 1).
  3. Пользователю предлагается ввести каждый элемент массива.
  4. Выводится исходный массив.
  5. Создается переменная k, которая инициализируется нулем, и переменная s, которая инициализируется нулем.
  6. Происходит итерация по каждому элементу массива. Если элемент отрицательный, то к переменной k прибавляется единица, а переменная s принимает значение элемента.
  7. Создается переменная sred, которая инициализируется как отношение суммы отрицательных элементов к количеству отрицательных элементов.
  8. Выводится среднее значение положительных элементов.
  9. Последний элемент массива заменяется на среднее значение.
  10. Выводится новый массив.

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


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

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

10   голосов , оценка 3.7 из 5

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

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

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