Viết chương trình nhập vào nhiệt độ của các ngày trong năm.Đếm xem trong năm có bao nhiêu ngày có nhiệt độ lớn hơn nhiệt độ trung bình
Viết chương trình nhập vào nhiệt độ của các ngày trong năm.Đếm xem trong năm có bao nhiêu ngày có nhiệt độ lớn hơn nhiệt độ trung bình
program dem;
uses crt;
var n,i,dem : integer;
a : array[1..100] of real;
s,tb : real;
begin clrscr;
write(‘Nhap so ngay can ghi nhiet do :’); readln(n);
for i:=1 to n do begin
write(‘Nhiet do cua ngay thu ‘,i,’ trong nam la :’); readln(a[i]);
end;
for i:=1 to n do s:=s+a[i];
tb:=s/n;
for i:=1 to n do if a[i] > tb then dem:=dem+1;
write(‘So ngay co nhiet do lon hon nhiet do trung binh la :’, dem);
readln
end.
Program Hotboy;
Uses crt;
A:array[1..100] of real;
i,n,d :integer;
Tb,S : real;
Begin
Clrscr;
S:=0;
Tb:=0;
D:=0;
Write(‘Nhap so cac ngay can tinh nhiet do’);
Readln(n);
For i:=1 to n do
Begin
Write(‘nhap nhiet do ngay’,i);
Readln(A[i]);
End;
For i:=1 to n do
S:=S+A[i];
Tb:=s/n;
For i:=1 to n do
If A[i]>Tb then d:=d+1;
Write(‘co’,d,’ngay thoa man’);
Readln
End.