Program mas3;
Var A: array [1..10] of integer;
k, X: integer;
BEGIN
writeln ('Нахождение количества четных элементов массива');
k:=0;
For x:=1 to 10 do
begin
A[x]:=random(50); {заполнение элемента массива}
Write (A[x], ' '); {печать элемента массива в одну строку через пробел}
if A[x] mod 2 =0 then {если элемент массива четный, т.е делится на 2 без остатка}
k:=k+1; {количество таких элементов массива увеличиваем на 1}
End;
writeln;
Writeln('Количество четных элем.=',k);
End.