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

ĐÁ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.