1. In ra màn hình dãy số chẵn của dãy gồm n số nguyên. 2. In ra màn hình dãy số từ phần tử n-->1. (Dùng kiểu mảng)

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.

Bài 1: 

Program BTT;
Uses crt;
Var A: array[1..1000] of longint;
    n,i: longint;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        For i:=1 to n do
        Begin
                Write('A[',i,'] = '); Readln(A[i]);
        End;

        For i:=1 to n do
                If A[i] mod 2 = 0 then Write(A[i],' ');
        Readln
End.

Bài 2:

Program BTT;
Uses crt;
Var A: array[1..1000] of longint;
    n,i: longint;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        For i:=1 to n do
        Begin
                Write('A[',i,'] = '); Readln(A[i]);
        End;

        For i:=n downto 1 do
                Write(A[i],' ');
        Readln
End.