Question

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

Answer 1

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