Question

mong mn lam giúp mình bài này với a

cho tệp '' INPUT.INP'' dòng một chứa số nguyên N, dòng hai chứa N số nguyên . Viết chương trình đếm và đưa ra các số chẵn trong n số nguyên đó. dữ liệu được ghi vào tệp '' OUTPUT.INP'' với dòng một ghi số lượng các số chẵn , dòng hai ghi ra các số chẵn theo thứ tự.

Answer 1

var n,i,dem:longint;
a:array[1..1000000] of longint;
f:array[1..1000000] of boolean;
begin
assign(input,'text.inp'); reset(input);
assign(output,'text.out'); rewrite(output);
read(n); dem:=0;
for i:=1 to n do
begin
read(a[i]);
if a[i] mod 2=0 then
begin
f[i]:=true;
inc(dem);
end;
end;
writeln(dem);
for i:=1 to n do
if f[i] then write(a[i],' ');

end.