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

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

В одномерном массиве из N натуральных чисел вывести на экран количество четных и нечетных элементов. Помогите составить блок-схему и программу.

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

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

CLS
RANDOMIZE TIMER
INPUT "N = "; N
 
DIM x(N) AS INTEGER
 
FOR i = 1 TO N
   x(i) = 40 * RND + 1
   PRINT x(i);
NEXT
PRINT : PRINT
 
FOR i = 1 TO N
   IF x(i) MOD 2 = 0 THEN k2 = k2 + 1
NEXT
 
k1 = N - k2
PRINT "KOLICHESTVO CHETNYH CHISEL ="; k2
PRINT "KOLICHESTVO NECHETNYH CHISEL ="; k1

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

CLS — команда очистки экрана.
RANDOMIZE TIMER — команда инициализации генератора случайных чисел.
INPUTN = ; N — запрос на ввод числа N (размер массива).
DIM x(N) AS INTEGER — создание массива целых чисел x(N) размером N.
FOR i = 1 TO N — цикл по всем элементам массива x(i).
x(i) = 40 * RND + 1 — присваивание элементам массива x(i) случайного числа от 1 до 40.
PRINT x(i); — вывод значения элемента x(i) на экран.
NEXT — переход к следующему элементу цикла.
PRINT : PRINT — два вызова функции PRINT для завершения вывода.
FOR i = 1 TO N — цикл по всем элементам массива x(i).
IF x(i) MOD 2 = 0 THEN k2 = k2 + 1 — счётчик четных чисел k2.
NEXT — переход к следующему элементу цикла.
k1 = N — k2 — счётчик нечетных чисел k1.
PRINTKOLICHESTVO CHETNYH CHISEL =; k2 — вывод количества четных чисел на экран.
PRINTKOLICHESTVO NECHETNYH CHISEL =; k1 — вывод количества нечетных чисел на экран.