Nhập vào nhiệt độ trung bình của mỗi ngày trong tuần. Tính và đưa ra màn hình nhiệt độ trung bình của tuần. Số lượng ngày trong tuần có nhiệt độ cao hơn nhiệt độ trung bình của tuần.
1 câu trả lời
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.