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.