Вычислить количество нулевых элементов массива - QBasic

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

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

Здравствуйте! помогите пожалуйста проверить код и блок схему. Дан массив А(10). Вычислить количество нулевых элементов, сумму положительных элементов и среднее значение отрицательных элементов массива
Листинг программы
  1. DIM a(10)
  2. DATA 0,1,2,3,4,5,6,7,8,9
  3. PRINT "Мой Массив"
  4. FOR i=1 TO 10
  5. READ a(i)
  6. PRINT a(i)
  7. NEXT i
  8. PRINT
  9. Knul=0, sum=0, Kotr=0, sumotr=0
  10. Fori=1 TO 10
  11. IF a(i)=0 THEN
  12. Knull=Knull+1
  13. END IF
  14. IF a(i)>0 THEN
  15. sum=sum+a(i)
  16. END IF
  17. IF a(i)<0 THEN
  18. sumotr=sumotr+a(i)
  19. Kotr=Kotr+1
  20. END IF
  21. NEXT i
  22. sr = sumotr/Kotr
  23. PRINT Knull
  24. PRINT sum
  25. PRINT sr
  26. END

Решение задачи: «Вычислить количество нулевых элементов массива»

textual
Листинг программы
  1. DIM a(10)
  2. DATA 0,1,2,3,4,5,6,7,8,9
  3.  
  4. PRINT "Мой Массив"
  5.  
  6. FOR i=1 TO 10
  7.    READ a(i)
  8.    PRINT a(i)
  9. NEXT i
  10.  
  11. PRINT
  12.  
  13. Knul=0, sum=0, Kotr=0, sumotr=0
  14.  
  15. FOR i=1 TO 10
  16.    IF a(i)=0 THEN
  17.       Knull=Knull+1    
  18.    END IF
  19.    IF a(i)>0 THEN
  20.       sum=sum+a(i)  
  21.    END IF
  22.    IF a(i)<0 THEN
  23.       sumotr=sumotr+a(i)
  24.       Kotr=Kotr+1
  25.    END IF
  26. NEXT i
  27.  
  28. sr = sumotr/Kotr
  29. PRINT Knull
  30. PRINT sum
  31. PRINT sr
  32.  
  33. END

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

В этом коде:

  1. Создается массив a(10) и заполняется данными с помощью команды DATA.
  2. Выполняется цикл FOR, который проходит по всем элементам массива a(10).
  3. В каждой итерации цикла, с помощью команды READ, вводится значение текущего элемента массива.
  4. Затем значение текущего элемента массива выводится на экран с помощью команды PRINT.
  5. После выполнения цикла, выводится символ новой строки с помощью команды PRINT.
  6. Создаются четыре переменные: Knul, sum, Kotr и sumotr. Значения этих переменных инициализируются нулем.
  7. Выполняется второй цикл FOR, который также проходит по всем элементам массива a(10).
  8. Внутри цикла проверяется значение текущего элемента массива.
  9. Если элемент равен нулю, то к переменной Knul прибавляется единица.
  10. Если элемент больше нуля, то к переменной sum прибавляется значение текущего элемента массива.
  11. Если элемент меньше нуля, то к переменной sumotr прибавляется значение текущего элемента массива, а к переменной Kotr прибавляется единица.
  12. После выполнения второго цикла, вычисляется среднее значение отрицательных элементов массива с помощью формулы sr = sumotr/Kotr.
  13. Затем выводятся значения переменных Knul, sum и sr.
  14. Код завершается командой END.

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


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

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

14   голосов , оценка 3.786 из 5

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

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

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