Hãy viết chương trình nhiệt độ của N ngày từ bàn phím (N<=100). Tính nhiệt độ tb của N ngày và đếm xem có bao nhiêu ngày có nhiệt độ > nhiệt độ tb

program nhiet_do;
uses crt;
type arrint = array[1..366] of real;
var a : arrint;
dem, i, n : integer;
tong, tb : real;
begin
clrscr;
write('nhap so ngay :');readln(n);
tong := 0;
for i := 1 to n do
begin
write('nhap nhiet do ngay thu ', i , ' :');
readln(a[i]);
tong := tong + a[i];
end;
dem := 0;
tb := tong/n;
for i := 1 to n do
if a[i] > tb then dem := dem + 1;
writeln('nhiet do trung binh ', n ,' ngay :', tb:8:2);
writeln('so ngay co nhiet do cao hon trung binh la :', dem);
readln
end.