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

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

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

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

Листинг программы

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
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
 
PRINT
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 (конец программы)