program mangchan;

uses crt;

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

      n,i,d:integer;

begin

clrscr;

write('Nhap so luong phan tu mang ban dau: ');   readln(n);

writeln('NHAP TUNG GIA TRI CUA MANG');

d:=0;

for i:=1 to n do

 begin

  write('Phan tu thu ',i,': ');

  readln(A[i]);

  if A[i] mod 2=0 then

    begin

      d:=d+1;

      B[d]:=A[i];

    end;

 end;

if d=0 then write('Khong co phan tu chan de tao mang moi')

 else 

  begin

   write('Mang moi la: ');

   for i:=1 to d do

    write(A[i],' ');

  end;

readln

end.

uses crt;
var i,n,k:byte;
a,b:array[1..255] of integer;
BEGIN
        clrscr;
        write('Nhap n:'); readln(n);
        for i:=1 to n do
        begin
                write('Nhap a[',i,']:');
                readln(a[i]);
        end;
        k:=0;
        for i:=1 to n do
                if a[i] mod 2=0 then
                begin
                        inc(k);
                        b[k]:=a[i];
                end;
        write('CAC SO CHAN SAU KHI LAY RA LA:');
        for i:=1 to k do
                write(b[i],' ');
        readln
END.

Các số chẵn sau khi lấy ra lưu ở mảng b.

Chúc bạn học tốt.

Cho mik câu trl hay nhất nha.