Ý 1:

program trung_binh;

Uses crt;

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

      n,i,t:integer;

begin

       clrscr;

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

       t:=0;  

       for i:=1 to n do

              begin

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

                     t:=t+A[i];

              end;

       writeln('Trung binh cac so la: ',t/n:0:2);

       readln;

end.

Ý 2:

program dem_so;

Uses crt;

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

      n,i,d:integer;

begin

       clrscr;

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

       d:=0;

       for i:=1 to n do

              begin

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

                     if (A[i] mod 3=0) and (A[i]>100) then d:=d+1;

              end;

       write('So luong so thoa man dieu kien la: ',d);

       readln;

end.

* Với kiểu mảng cho kết quả trung bình cộng:
Uses crt;

Var a:array[1..10000] of integer;

n,i,tong:integer; TBC:real;

Begin

Clrscr;

Write('Nhap so ptu N= ');  Readln(n);

Tong:=0;  

For i:=1 to n do

Begin

Write('Nhap a[',i,']: ');  Readln(A[i]);

Tong:=Tong+a[i];

End;
TBC:=Tong/n;

Writeln('Trung binh cong cac so trong day tren la: ',TBC:3:2);

Readln

End.

*Với kiểu mảng cho số lượng các số thỏa mãn điều kiện cho trước (chia hết cho 3, lớn hơn 100)

Uses crt;

Var a:array[1..10000] of integer;

n,i,dem:integer;

Begin

Clrscr;

Write('Nhap so ptu N = ');  Readln(n);

Dem:=0;

For i:=1 to n do

Begin

Write('Nhap a[',i,']: ');  Readln(a[i]);

If (A[i] mod 3=0) and (A[i]>100) then dem:=dem+1 else Write('Khong co so nao thoa man ĐK cho truoc!');

End;
Write('Cac so thoa man dieu kien cho truoc gom: ',dem ,'so');

Readln

End.