mọi người ai biết thì giúp em với ạ , đây là bài thi nên em cần gấp:(( Viết chương trình nhập từ bàn phím nhiệt độ của 5 ngày trong tuần. Tính và đưa

0 bình luận về “mọi người ai biết thì giúp em với ạ , đây là bài thi nên em cần gấp:(( Viết chương trình nhập từ bàn phím nhiệt độ của 5 ngày trong tuần. Tính và đưa”

1. ĐÁP ÁN ĐÂY Ạ 

   uses crt;

   var a: array[1..5] of real;

   i,d: integer;

   tb:real;

   begin

   clrscr;

   for i:=1 to 5 do

   begin

   write (‘nhap nhiet do ngay thu ‘,i,’: ‘);  readln (a[i]);

   tb:=tb+a[i];

   end;

   tb:=tb/5;

   for i:=1 to 5 do if a[i]>tb then d:=d+1;

   writeln (‘nhiet do trung binh: ‘,tb:1:2);

   writeln (‘so luong ngay co nhiet do cao hon nhiet do trung binh: ‘,d);

   readln;

   end.

   Bình luận