program nhiet_do;
uses crt;
var A:array[1..7] of integer;
i,d1,d2:byte;
t:integer;
tb:real;
begin
clrscr;
t:=0;
for i:=1 to 7 do
begin
if i=7 then write('Nhap nhiet do cua chu nhat: ');
else write('Nhap nhiet do cua thu ',i+1': ');
readln(A[i]);
t:=t+A[i];
end;
tb:=t/7;
writeln('Nhiet do trung binh la: ',tb:0:2);
d1:=0; d2:=0;
for i:=1 to 7 do
if A[i]>tb then d1:=d1+1
else if A[i]<tb then d2:=d2+1;
writeln('Co ',d1,' ngay co nhiet do cao hon trung binh');
writeln('Co ',d2,' ngay co nhiet do thap hon trung binh');
readln;
end.
