Hướng dẫn bài NHIETDO

Đề bài:

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.

Ví dụ

Input

33

34

35

36

37

38

39

Output

36.00

3

Chương trình mẫu

I

var

   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.