ввести в цикле for 4 целых числа вывести количество четных среди этих чисел.

Зачем здесь массивы?

Программа решается в for i:=1 to 4 do begin readln(a);

if(odd(a)=false) then inc(z);end;

Мне так легче.

program z1;var i,n,s:integer;A:array[1..4] of integer;beginn:=4;s:=0;for i:=1 to n dbeginwrite('A[',i,']='); readln(A[i]);end;for i:=1 to n dobeginif A[i] mod 2 =0 then s:=s+1;end;writeln('s=', s);end.