Программа

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