Ядро программы состоит из простой проверки If A(i) Mod 2 = 0 Then k = k + 1 В переменной к накапливается счетчик четных элементов. Если в языке нет функции Mod (остаток от деления), можно написать так: If Int (A(i) / 2) = A(i) / 2 Then k = k + 1 Функция Int - целая часть числа - есть во всех языках программирования.
If A(i) Mod 2 = 0 Then k = k + 1
В переменной к накапливается счетчик четных элементов.
Если в языке нет функции Mod (остаток от деления), можно написать так:
If Int (A(i) / 2) = A(i) / 2 Then k = k + 1
Функция Int - целая часть числа - есть во всех языках программирования.