program ct;
uses crt;
var i,n,d :integer;
nhiet_tb,s :real;
A:array[1..100] of real;
begin
clrscr;
write('nhap so ngay=');readln(n);
for i:=1 to n do
begin
write('nhap nhiet do ngay thu A[',i,']:=');readln(A[i]);
end;
s:=0;
for i:=1 to n do
s:=s+A[i];
nhiet_tb:=s/n;
d:=0;
for i:=1 to n do
if A[i]>nhiet_tb then d:=d+1;
writeln('co', d ,' ngay nhiet do lon hon nhiet do trung binh')
readln
end.