program trung_binh;

uses crt;

var n,i:integer;

tb:real;

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

begin

clrscr;

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

writeln('nhap day so:');

for i:=1 to n do

begin

write('a[',i,']=');readln(a[i]);

end;

tb:=0;

for i:=1 to n do tb:=tb+a[i];

tb:=tb/n;

write('trung binh cong cua day so vua nhap la:',tb:2:2);