Program pr1;
Var A:array [1..10] of integer;
i,k:integer;
begin
for i:=1 to 10 do
read (A[i]);
k:=0;
for i:=1 to 10 do
if A[i] mod 2=0 then
k:=k+1;
writeln;
writeln (k);
end.
наверное так, но лучше проверь в паскале
67 в десятичной = 103 в восьмиричной (просто 67 делить на 8 пока остаток будет получается меньше восьми)
Истинное суждение-мой компьютер персональный
ложное суждение-мой клмпьютер летит