nhập vào nhiệt độ của các ngày trong tuần. Tính nhiệt độ trung bình tuần . Số ngày có nhiệt độ cao hơn hoặc nhiệt độ thấp hơn.

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.