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.
