Program bai_tap ;

Uses crt ;

Var A: array [1..150] of integer ;

       i,n: integer;

Begin

Write('nhap n=');

Readln (n);

For i:=1 to n do

Begin

Write ('nhap phan tu thu ',i,' =');

Readln (A[i]);

end;

Writeln ('Cac so chan trong day la:');

For i:=1 to n do 

If A[i] mod 2=0 then 

Write (A[i]:5);

Readln

End.

program ct;

uses crt;

var A:array [1..1000] of integer;

     i,n:integer;

begin clrscr;

   write('Nhap so n: '); readln (n);

   for i:=1 to n do

     begin

        writeln('Nhap phan tu thu ',i,': '); readln(A[i]);

     end;

   writeln('Cac phan tu chan la:');

   for i:=1 to n do 

     if A[i] mod 2=0 then writeln(A[i]:3);

readln;

end.

Học tốt!