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.
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết giúp các em luyện tập và củng cố kiến thức hiệu quả
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 5 Địa 8 có lời giải chi tiết
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 4 Địa 8 có lời giải chi tiết
