Nhập vào một mảng A các số nguyên (không quá 500 phần tử), hãy đếm xem trong mảng A có bao nhiêu số chẵn, đưa ra màn hình các số chẵn mỗi số cách nhau một dấu cách.

Program BTT;
Uses crt;
Var A: array[1..500] of longint;
    n,i,d: longint;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        d:=0;
        For i:=1 to n do
        Begin
                Write('A[',i,'] = ');
                Readln(A[i]);
                If A[i] mod 2 = 0 then inc(d);
        End;
        Writeln('Co ',d,' so chan');
        For i:=1 to n do
                If A[i] mod 2 = 0 then Write(A[i],' ');
        Readln

End.

var a: array[1..500] of longint;
    d,n,i: longint;
begin
write('Nhap n: '); Readln(n);
for i:=1 to n do
begin
read(a[i]);
if a[i] mod 2 = 0 then inc(d);
end;

writeln;
writeln('So so chan la: ',d);
for i:=1 to n do
if a[i] mod 2 = 0 then write(a[i],' ');
readln;
end.