viết chương trình nhập nhiệt độ trung bình của mỗi ngày trong tuần a) tính và đưa ra nhiệt độ trung bình của cả tuần b) đếm số ngày trong tuần có nhiệt độ cao hơn

Program nhiet_do_tuan ;

Uses crt;

Var Nhietdo: array [1..7] of real;

            i,d: byte;

            S,tb: real;

Begin 

S:=0;

For i:=1 to 7 do 

begin

Write ('nhap nhiet do ngay ',i,' =');

Readln (nhietdo[i]);

S:= S+ nhietdo[i];

end;

d:=0;

Tb:=S/7;

For i:= 1 to 7 do

If nhietdo[i]> Tb then d:=d+1;

Writeln ('nhiet do trung binh tuan la:', tb:4:2);

Writeln ('so ngay co nhiet do cao hon trung binh la:',d);

Readln 

End.

Program BT;
Uses crt;
Var A: array[1..10] of byte;
    sum, cnt, i: integer;
    tbc: real;

Begin
        Clrscr;

        sum := 0;
        For i := 1 to 7 do
        Begin
                Write('Nhiet do cua ngay thu ',i,' = ');
                Readln(A[i]);
                sum := sum + A[i];
        End;
        tbc := sum / 7;
        Writeln('Nhiet do trung binh = ', tbc : 0 : 2);

        cnt := 0;
        For i := 1 to 7 do
                If A[i] > tbc then inc(cnt);
        Write('Co ',cnt,' ngay co nhiet do cao hon nhiet do trung binh');
        Readln
End.