Определить сумму и количество положительных элементов массива - QBasic (27634)
Формулировка задачи:
1.Определить сумму и количество положительных элементов исходного массива X(n).
2. Задан массив натуральных чисел, элементы которого могут принимать значения от 1 до 1000. Найти и вывести на экран сумму элементов самой длинной последовательности подряд идущих четных элементов массива, если такой последовательности не существует, вывести соответствующее сообщение.
Вот кому не сложно
Решение задачи: «Определить сумму и количество положительных элементов массива»
textual
Листинг программы
- DEFLNG A, I-K, N, S
- OPTION BASE 1
- RANDOMIZE TIMER
- CLS
- INPUT "Vvedite N"; n
- DIM a(n)
- FOR i = 1 TO n
- a(i) = 1000 * RND + .5
- PRINT a(i);
- NEXT i
- FOR i = 1 TO n
- IF (a(i) MOD 2) = 0 THEN 100
- NEXT i
- PRINT "NET chetnyh chisel"
- GOTO 200
- 100
- j = 0
- k = 0
- FOR i = 1 TO n
- IF (a(i) MOD 2) = 0 THEN
- j = j + 1
- ELSE
- IF k < j THEN
- k = j
- i1 = i - j
- i2 = i - 1
- END IF
- j = 0
- END IF
- NEXT i
- IF i1 = 0 THEN
- i1 = 1
- i2 = n
- END IF
- s = 0
- FOR i = i1 TO i2
- s = s + a(i)
- NEXT i
- PRINT "SUMMA="; s
- 200
- END
Объяснение кода листинга программы
- Объявление переменных:
- A, I-K, N, S (возможно, это обозначения для регистра, интс, номер строки и сумма)
- n (количество элементов массива)
- a(n) (массив, в который будут записываться числа)
- Заполнение массива a случайными числами от 1000 до 1099 с шагом 0.5
- Вывод на экран всех чисел массива a
- Поиск чётных чисел в массиве a и подсчёт их количества
- Если количество чётных чисел равно 0, то выводится сообщение
NET chetnyh chisel
(нет чётных чисел) - Если количество чётных чисел больше 0, то начинается поиск первого нечётного числа, с которого начинается последовательность чётных чисел
- После нахождения первого нечётного числа, начинается подсчёт суммы чётных чисел, начиная с него и до конца массива
- Выводится сообщение с суммой чётных чисел
- Код заканчивается END (конец программы)
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д