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

0 bình luận về “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”

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