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.

Answer 2

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

Answer 3

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

Answer 4

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

Answer 5

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