Viết chương trình nhập vào dãy số A gồm N số nguyên. Đưa ra màn hình những phần tử chia hết cho 2 của dãy số

Program    nhung_phan_tu_chia_het_cho_2;

user   crt;

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

        n,i : longint;

Begin

clrscr;

read(n);

for i:=1 to n do read (a[i]);

for i:=1 to n do

if a[i] mod 2=0 then write (a[i],’  ‘);

readln;

end.

CHÚC BẠN HỌC TỐT!!!