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 ct;
uses crt;
var i,n,d :integer;
nhiet_tb,s :real;
A:array[1..100] of real;
begin
clrscr;
write('nhap so ngay=');readln(n);
for i:=1 to n do
begin
write('nhap nhiet do ngay thu A[',i,']:=');readln(A[i]);
end;
s:=0;
for i:=1 to n do
s:=s+A[i];
nhiet_tb:=s/n;
d:=0;
for i:=1 to n do
if A[i]<nhiet_tb then d:=d+1;
writeln('co', d ,' ngay nhiet do lon hon nhiet do trung binh')
readln
end.