Số chẵn:

program so_chan;

uses crt;

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

      n,i:integer;

begin

       clrscr;

       write('Nhap N: );  readln(n);

       for i:=1 to n do

              begin

                     write('Nhap so thu ',i,': ');   readln(A[i]);

              end;

       write('Cac so chan la: ');

       for i:=1 to n do

              if A[i] mod 2=0 then write(A[i],' ');

       readln;

end.

Số lẻ:

program so_le;

uses crt;

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

      n,i:integer;

begin

       clrscr;

       write('Nhap N: );  readln(n);

       for i:=1 to n do

              begin

                     write('Nhap so thu ',i,': ');   readln(A[i]);

              end;

       write('Cac so le la: ');

       for i:=1 to n do

              if A[i] mod 2=1 then write(A[i],' ');

       readln;

end.

Lớn nhất:

program lon_nhat;

uses crt;

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

      n,i,max:integer;

begin

       clrscr;

       write('Nhap N: );  readln(n);

       for i:=1 to n do

              begin

                     write('Nhap so thu ',i,': ');   readln(A[i]);

              end;

       max:=A[1];

       for i:=2 to n do

             if A[i]>max then max:=A[i];

       write('So lon nhat la: ',max);

       readln;

end.

Nhỏ nhất:

program nho_nhat;

uses crt;

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

      n,i,min:integer;

begin

       clrscr;

       write('Nhap N: );  readln(n);

       for i:=1 to n do

              begin

                     write('Nhap so thu ',i,': ');   readln(A[i]);

              end;

       min:=A[1];

       for i:=2 to n do

             if A[i]>min then min:=A[i];

       write('So nho nhat la: ',min);

       readln;

end.

* Với kiểu mảng in ra các số lẻ:
Uses Crt;
Var a:array[1..1000] of integer;
i,n:integer;
Begin
Clrscr;
Write(' Nhap so ptu N = '); Readln(n);
Writeln;
For i:=1 to n do 
Begin
Write(' Nhap a[',i,'] = '); Readln(a[i]);
End;
WRITE(' Cac so le trong day tren la: ');
For i:=1 to n do If a[i] mod 2 = 1 then write(a[i]:3);
Readln
End.
*Với kiểu mảng in ra các số chẵn: 

Uses Crt;
Var a:array[1..1000] of integer;
i,n:integer;
Begin
Clrscr;
Write(' Nhap so ptu N = '); Readln(n);
Writeln;
For i:=1 to n do 
Begin
Write(' Nhap a[',i,'] = '); Readln(a[i]);
End;
WRITE(' Cac so chan trong day tren la: ');
For i:=1 to n do If a[i] mod 2 = 0 then write(a[i]:3);
Readln
End.
* Với kiểu mảng in ra số lớn nhất:

Uses Crt;
Var a:array[1..1000] of integer;
i,n,max:integer;
Begin
Clrscr;
Write(' Nhap so ptu N = '); Readln(n);
Writeln;
For i:=1 to n do 
Begin
Write(' Nhap a[',i,'] = '); Readln(a[i]);
End;
max:=a[1];
For i:=2 to n do If max<a[i] then max:=a[i];
Write(' So lon nhat trong day do la: ',max:2);
Readln
End.
* Với kiểu mảng in ra số nhỏ nhất:
Uses Crt;
Var a:array[1..1000] of integer;
i,n,min:integer;
Begin
Clrscr;
Write(' Nhap so ptu N = '); Readln(n);
Writeln;
For i:=1 to n do 
Begin
Write(' Nhap a[',i,'] = '); Readln(a[i]);
End;
min:=a[1];
For i:=2 to n do If min>a[i] then min:=a[i];
Write(' So nho nhat trong day do la: ',min:2);
Readln
End.