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.

program nhiet_do;
uses crt;
var a, b, c, d, e,f, g, tb : real;
begin
clrscr;
write('nhap nhiet do ngày thu hai :'); readln(a);
write('nhap nhiet do ngày thu ba :'); readln(b);
write('nhap nhiet do ngày thu tu :'); readln(c);
write('nhap nhiet do ngày thu nam :'); readln(d);
write('nhap nhiet do ngày thu sau :'); readln(e);
write('nhap nhiet do ngày thu bay :'); readln(f);
write('nhap nhiet do ngày thu chu nhat :'); readln(g);
tb := (a + b + c + d + e + f + g)/7;
writeln('nhiet do trung binh cua tuan la :', tb:8:2);
if a>tb then writeln('thu hai co nhiet do cao hon trung binh tuan.');
if b>tb then writeln('thu ba co nhiet do cao hon trung binh tuan.');
if c>tb then writeln('thu tu co nhiet do cao hon trung binh tuan.');
if d>tb then writeln('thu nam co nhiet do cao hon trung binh tuan.');
if e>tb then writeln('thu sau co nhiet do cao hon trung binh tuan.');
if f>tb then writeln('thu bay co nhiet do cao hon trung binh tuan.');
if g>tb then writeln('thu chu nhat co nhiet do cao hon trung binh tuan.');

if a<tb then writeln('thu hai co nhiet do thap hon trung binh tuan.');
if b<tb then writeln('thu ba co nhiet do thap hon trung binh tuan.');
if c<tb then writeln('thu tu co nhiet do thap hon trung binh tuan.');
if d<tb then writeln('thu nam co nhiet do thap hon trung binh tuan.');
if e<tb then writeln('thu sau co nhiet do thap hon trung binh tuan.');
if f<tb then writeln('thu bay co nhiet do thap hon trung binh tuan.');
if g<tb then writeln('thu chu nhat co nhiet do cao hon trung binh tuan.');
readln
end.