... Var t1, t2, t3,t4, t5, t6, t7: Integer; TB: Real; dem:byte; Begin Writeln(Nhap vao nhiet cua bay ngay); Readln(t1,t2,t3,t4,t5,t6,t7); TB:= (t1+t2+t3+t4+t5+t6+t7)/7; Dem:=0; If t1 > TB then Dem :=dem ... nhiệt độ trung bình năm số lợng ngày có nhiệt độ TB cao nhiệt trung bình năm? Program Nhietdo_Nngay; Uses Crt; Var Nhietdo : Array[1 365] of Integer; Dem, i, n: Byte; Tong, TB:Real; Begin Write(Nhap ... khai báo, truy xuất hiển thị đê nhập dự liệu VI Dặn dò - Vê nhà xem lại làm tập 5, 6, 7, 8, SGK 11/ trang 79-80 - Xem trớc tập thực hành trang 63 ...