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