Определить сумму и количество положительных элементов массива - QBasic (27634)

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

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

1.Определить сумму и количество положительных элементов исходного массива X(n). 2. Задан массив натуральных чисел, элементы которого могут принимать значения от 1 до 1000. Найти и вывести на экран сумму элементов самой длинной последовательности подряд идущих четных элементов массива, если такой последовательности не существует, вывести соответствующее сообщение. Вот кому не сложно

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

textual
Листинг программы
  1. DEFLNG A, I-K, N, S
  2. OPTION BASE 1
  3. RANDOMIZE TIMER
  4. CLS
  5. INPUT "Vvedite N"; n
  6. DIM a(n)
  7.  
  8. FOR i = 1 TO n
  9.    a(i) = 1000 * RND + .5
  10.    PRINT a(i);
  11. NEXT i
  12.  
  13. FOR i = 1 TO n
  14.    IF (a(i) MOD 2) = 0 THEN 100
  15. NEXT i
  16.  
  17. PRINT
  18. PRINT "NET chetnyh chisel"
  19. GOTO 200
  20. 100
  21. j = 0
  22. k = 0
  23. FOR i = 1 TO n
  24.    IF (a(i) MOD 2) = 0 THEN
  25.       j = j + 1
  26.    ELSE
  27.       IF k < j THEN
  28.          k = j
  29.          i1 = i - j
  30.          i2 = i - 1
  31.       END IF
  32.       j = 0
  33.    END IF
  34. NEXT i
  35.  
  36. IF i1 = 0 THEN
  37.    i1 = 1
  38.    i2 = n
  39. END IF
  40.  
  41. PRINT
  42. s = 0
  43. FOR i = i1 TO i2
  44.    s = s + a(i)
  45. NEXT i
  46. PRINT "SUMMA="; s
  47. 200
  48. END

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

  1. Объявление переменных:
    • A, I-K, N, S (возможно, это обозначения для регистра, интс, номер строки и сумма)
    • n (количество элементов массива)
    • a(n) (массив, в который будут записываться числа)
  2. Заполнение массива a случайными числами от 1000 до 1099 с шагом 0.5
  3. Вывод на экран всех чисел массива a
  4. Поиск чётных чисел в массиве a и подсчёт их количества
  5. Если количество чётных чисел равно 0, то выводится сообщение NET chetnyh chisel (нет чётных чисел)
  6. Если количество чётных чисел больше 0, то начинается поиск первого нечётного числа, с которого начинается последовательность чётных чисел
  7. После нахождения первого нечётного числа, начинается подсчёт суммы чётных чисел, начиная с него и до конца массива
  8. Выводится сообщение с суммой чётных чисел
  9. Код заканчивается END (конец программы)

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


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

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

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

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

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

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