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
2 câu trả lời
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.
Câu hỏi trong lớp
Xem thêm