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;

       write('Trung binh cua N so nguyen la: ',t/n:0:3);

       readln;

end.

Program Tinh_gia_tri_trung_binh;

Uses Crt;

Var A: Array [1..100] of integer;

      N, s, i : integer;

Begin

Write ('Nhap so nguyen N');

Readln (N);

for i:=1 to N do

Begin

Write('A[',i,']=');

Readln (A[i]);

End;

s:=0;

for i:=1 to n do

s:=s + A[i];

Write ('Gia tri trung binh la:', s div n);

Readln;

End.