ĐÁP ÁN ĐÂY Ạ
uses crt;
var a: array[1..5] of real;
i,d: integer;
tb:real;
begin
clrscr;
for i:=1 to 5 do
begin
write ('nhap nhiet do ngay thu ',i,': '); readln (a[i]);
tb:=tb+a[i];
end;
tb:=tb/5;
for i:=1 to 5 do if a[i]>tb then d:=d+1;
writeln ('nhiet do trung binh: ',tb:1:2);
writeln ('so luong ngay co nhiet do cao hon nhiet do trung binh: ',d);
readln;
end.