Tạo mảng số nguyên A gồm n phân tử. Tìm ra các phần tử chẵn Đếm số phần tử chẵn trong mảng. Huhu giúp mk vs ạ mk đg ktra. Thanks mn nhìu

uses crt;

var a:array[1..1000000] of longint;

i,n,d:longint;

begin

write('n=');readln(n);

for i:=1 to n do 

begin 

write('a[',i,']=');readln(a[i]);

end;

d:=0;

write('Cac phan tu chan: ');

for i:=1 to n do 

if a[i] mod 2=0 then

begin

write(a[i],' ');

d:=d+1;

end;

writeln;

write('Co ',d,' phan tu la so chan');

readln;

end.

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