Нахождение суммы нечетных чисел и количества четных из введенных - QBasic

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

Задано n целых чисел. Составить программу нахождения суммы нечетных чисел и количества четных из введенных. Заранее благодарен

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

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

CLS
RANDOMIZE TIMER
DIM n AS INTEGER
 
n = 7 + 7 * RND
DIM a(1 TO n) AS INTEGER
 
FOR i = 1 TO n
   a(i) = 20 * RND - 10
   PRINT a(i);
NEXT i
PRINT : PRINT
 
sum = 0
kol = 0
 
FOR i = 1 TO n
   IF a(i) MOD 2 = 0 THEN
      kol = kol + 1
   ELSE
      sum = sum + a(i)
   END IF
NEXT i
 
PRINT "SUMMA ="; sum
PRINT "KOLICHESTVO ="; kol
END

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

Установка начального значения переменной n равным сумме 7 и произведения 7 на случайное число RND.
Разделение памяти на массив a размером n.
Заполнение массива a значениями, которые генерируются как 20 умножить на случайное число RND, затем вычесть 10.
Вывод каждого элемента массива a на экран.
Инициализация переменных sum и kol нулевыми значениями.
Проход по всем элементам массива a с целью проверить их четность.
Если элемент четный, то увеличить значение переменной kol на единицу.
Если элемент нечетный, то прибавить его значение к переменной sum.
После завершения прохода по всем элементам массива, вывод на экран суммы sum и количества kol.