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 ra màn hình nhiệt độ trung bình của 5 ngày và số lượng ngày trong tuần có nhiệt độ cao hơn nhiệt độ trung bình?
1 câu trả lời
ĐÁ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.
