program dem;
uses crt;
var n,i,dem : integer;
a : array[1..100] of real;
s,tb : real;
begin clrscr;
write('Nhap so ngay can ghi nhiet do :'); readln(n);
for i:=1 to n do begin
write('Nhiet do cua ngay thu ',i,' trong nam la :'); readln(a[i]);
end;
for i:=1 to n do s:=s+a[i];
tb:=s/n;
for i:=1 to n do if a[i] > tb then dem:=dem+1;
write('So ngay co nhiet do lon hon nhiet do trung binh la :', dem);
readln
end.