program tbc;

uses crt;

var n,i: integer;

      a: array[1..1000] of integer;

      tbc: real;

begin

write('Nhap do dai cua day so nguyen: ');

readln(n);

for i:=1 to n do

begin

    write('Nhap phan tu thu ',i,': ');

    readln(a[i]);

    tbc:=tbc+a[i];

end;

tbc:=tbc/n;

writeln('Trung binh cong cua day so nguyen tren la: ',tbc);

readln;

end.

program ct;

uses crt;

var i,n,s:integer;tbc:real;

A:array[1..100] of integer;

begin

clrscr;

write('nhap n:=');readln(n);

for i:=1 to n do

begin

write('nhap mang A[',i,']:=');readln(A[i]);

end;

s:=0;

for i:=1 to n do

begin

    s:=s+A[i];

    tbc:=s/n;

end;

writeln('trung binh cong la:',tbc:4:2);

readln

end.