Tính trung bình cộng pascal ezz

Program Typlex;

Uses crt;

Var i,n,k: integer;

      M: array[1..100000] of longint;

Begin

     Writeln('Nhap n: '); Readln(n);

     k:=0;

     For i:=1 to n do

          Begin

                    Readln(M[i]);

                    k:=k+M[i]);

          End;

     k:=k/n;

     Writeln('TBC=',k);

     Readln

End.

#Xin CTLHN, chúc bạn học tốt

Chương trình tính trung bình cộng của n số:

program kaito;
uses crt;
var n, dem: integer;
      s: real;
      a: array[1..10000] of longint;
begin
    clrscr;
    write('Nhap n = '); readln(n);
    dem:=1; s:=0;
    while (dem<=n) do begin
        write('Phan tu thu ',dem,' la: '); readln(a[dem]);
        s:=s+a[dem]; inc(dem);
    end;
    writeln('Trung binh cong cua ',n,' so la: ',s/n:0:2);
    readln
end.