sử dụng while...do:

program oken;
uses crt;
var sum:real;
    n,i:longint;
    a: array[1..1000] of real;
begin
        clrscr;
        write('nhap so so phan tu cua mang: '); readln(n);
        sum:=0; i:=1;
        while i<=n do
                begin
                        write('a[',i,']: '); readln(a[i]);
                        sum:=sum+a[i];
                        i:=i+1;
                end;
        writeln('TBC=',sum/n:0:3);
        readln;
end.

Sử dụng For...to...do:

program oken;
uses crt;
var sum:real;
    n,i:longint;
    a: array[1..1000] of real;
begin
        clrscr;
        write('nhap so so phan tu cua mang: '); readln(n);
        sum:=0;
        for i:=1 to n do
                begin
                        write('a[',i,']: '); readln(a[i]);
                        sum:=sum+a[i];
                end;
        writeln('TBC=',sum/n:0:3);
        readln;
end.

While .. do

Program BTH;
uses crt;
var s:real;
n,i:longint;
a:array[1..100000] of real;
begin
        clrscr;
        write('Nhap so luong phan tu cua mang: ');readln(n);
        s:=0;
        i:=1;
        while i<=n do
        begin
                write('a[',i,']: '); readln(a[i]);
                s:=s+a[i];
                i:=i+1;
        end;
        writeln('Trung binh cong la: ',s/n:4:2);
        readln;
end.

For..do

Program BTH;
uses crt;
var s:real;
n,i:longint;
a:array[1..100000] of real;
begin
        clrscr;
        write('Nhap so luong phan tu cua mang: '); readln(n);
        s:=0;
        for i:=1 to n do
        begin
                write('a[',i,']: '); readln(a[i]);
                s:=s+a[i];
        end;
        writeln('Trung binh cong la: ',s/n:4:2);
        readln;
end.