CLS
INPUT "введи размер массива " ; n
DIM A%(n)
PRINT "введи массив"
FOR i = 1 TO n
'Ввод элементов массива
INPUT A(i)
NEXT i
'Задание начального значения счетчиков количества четных и нечетных элементов.
K1 = 0
K2 = 0
FOR i = 1 TO n
'Проверка элементов массива на четность
IF A(i) MOD 2 = 0 THEN K1 = K1 + 1 ELSE K2 = K2 + 1
NEXT i
PRINT "количество четных элементов ="; K1
PRINT "количество нечетных элементов ="; K2
END