program CountEvenNumbers;

var
arr: array$$\mathrm{1..8}$$ of integer;
i, countEven: integer;

begin
countEven := 0;

// Заполняем массив случайными числами
Randomize;
for i := 1 to 8 do
begin
arr$$i$$ := Random$100$; // Генерируем случайное число от 0 до 99
writeln${}^{\prime }arr{[}^{\prime },i{,}^{\prime }]{=}^{\prime },arr[i]$;
if arr$$i$$ mod 2 = 0 then // Проверяем, является ли элемент четным
countEven := countEven + 1;
end;

writeln${}^{\prime }Количествочетныхэлементоввмассиве{:}^{\prime },countEven$;
end.