Program Nhiet_do_TB;
Uses crt;
Var A:array[1..7] of integer;
I:byte; TB,:integer; dem:byte;
Begin
Clrscr;
Dem:=0;TB:=0;
For i:=1 to 7 do
begin
Write(‘ Nhiet do ngay thu ,i,’ la’);
Read(A[i]);
TB:=TB+A[i];
End;
TB:=TB/7;
For i:=1 to 7 do
If A[i] > TB then inc(dem);
Write(‘ Nhiet do TB la : ‘, TB,’ . Va co ’,dem,’ ngay co nhiet do cao hon TB’ );
readln
End.