Cho nhiệt độ 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 (yêu cầu 1) và số lượng ngày trong tuần có nhiệt độ cao hơn nhiệt độ trung bình (yêu cầu 2).
Input: Gồm 7 dòng, mỗi dòng là nhiệt độ ti một ngày (0 ≤ ti ≤ 100)
Output:
- Dòng 1 là nhiệt độ trung bình, làm tròn 2 chữ số thập phân.
- Dòng 2 là số ngày lớn có nhiệt độ lớn hơn trung bình.
Input
33
34
35
36
37
38
39
Output
36.00
3
Chương trình mẫu
I
t:array[1..7] of real;
s,tb:real;
dem,i:byte;
procedure nhap;
begin
for i:=1 to 7 do readln(t[i]);
end;
procedure xuli;
begin
s:=0;
for i:=1 to 7 do s:=s+t[i];
tb:=s/7;
dem:=0;
for i:=1 to 7 do
if t[i]>tb then inc(dem);
end;
procedure xuat;
begin
writeln(tb:0:2);
writeln(dem);
end;
begin
assign(input,'nhietdo.inp');reset(input);
assign(output,'nhietdo.out');rewrite(output);
nhap;
xuli;
xuat;
end.
