1.
var i,n:longint;
a: array[1..1000] of longint;
begin
write('Nhap n: '); readln(n);
for i:=1 to n do
begin
write('a[',i,'] ='); read(a[i]);
end;
writeln;
writeln('So chan trong day la: ');
for i:=1 to n do
if a[i] mod 2 =0 then write(a[i],' ');
readln;
end.
2.
var i,n:longint;
a: array[1..1000] of longint;
begin
write('Nhap n: '); readln(n);
for i:=1 to n do
begin
write('a[',i,'] ='); read(a[i]);
end;
writeln;
writeln('Day viet nguoc lai la: ');
for i:=n downto 1 do
write(a[i],' ');
readln;
end.
