Viết chương trình sử dụng biến mảng để nhập từ bàn phím các phần tử của một dãy số nguyên.Độ dài của dãy số cũng được nhập từ bàn phím.In ra màn hình dãy số vừa nhập và có bao nhiêu giá trị là số chẵn
uses crt; var n,i,d:longint; a:array[1..1000]of longint; begin clrscr; readln(n); for i:=1 to n do begin read(a[i]); if a[i]mod 2=0 then inc(d); end; readln; for i:=1 to n do write(a[i],' ');writeln; write(d); readln end.