Program nhiet_do_tuan ;
Uses crt;
Var Nhietdo: array [1..7] of real;
i,d: byte;
S,tb: real;
Begin
S:=0;
For i:=1 to 7 do
begin
Write ('nhap nhiet do ngay ',i,' =');
Readln (nhietdo[i]);
S:= S+ nhietdo[i];
end;
d:=0;
Tb:=S/7;
For i:= 1 to 7 do
If nhietdo[i]> Tb then d:=d+1;
Writeln ('nhiet do trung binh tuan la:', tb:4:2);
Writeln ('so ngay co nhiet do cao hon trung binh la:',d);
Readln
End.