(если i - кол-во элементов массива, a[i] - массив; добавить в переменные k-количество четных чисел, integer)
k:=0
from i=1 to 12 do
if a[i] mod 2 = 0 then k:=k+1
не забудь вывести значение, если необходимо