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.

Program Hotboy;

Uses crt;

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

i,n,d :integer;

 Tb,S : real; 

Begin

Clrscr;

S:=0;

Tb:=0;

D:=0;

 Write('Nhap so cac ngay can tinh nhiet do');

Readln(n);

For i:=1 to n do

Begin

Write('nhap nhiet do ngay',i);

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 d:=d+1;

Write('co',d,'ngay thoa man');

Readln

End.