viết chương trình nhập nhiệt độ trung bình của mỗi ngày trong tuần a) tính và đưa ra nhiệt độ trung bình của cả tuần b) đếm số ngày trong tuần có nhiệ

0 bình luận về “viết chương trình nhập nhiệt độ trung bình của mỗi ngày trong tuần a) tính và đưa ra nhiệt độ trung bình của cả tuần b) đếm số ngày trong tuần có nhiệ”

1. 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.

   Bình luận