Input: Số N và dãy số nguyên A
Output: Các số chẵn trong dãy số nguyên A
Chương trình:
program bai_giai;
uses crt;
var a:array[1..1000] of integer;
n,i:integer;
begin
clrscr;
write('Nhap N: '); readln(n);
write('Nhap day: ');
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; readln;
end.