... cao hơn nhiệt độ TB của tuần. TB = 18 .7Dem =0 765 43 21 i 19 1 719 211 82 01 7 A[i] 0 1 1 2 3 3 4 20 21 19 19 +1 +1 +1+ 1 Program vd1;Uses crt;Var t1,t2,t3,t4,t5,t6,t7,tb : real; dem : integer;BEGINClrscr; ... TO DO. 15 20 19 25 18 12 16 Var A:ARRAY [1 100 ] OF integer; A[5] = 18 * Đếm các phần tử trong mảng thoả mÃn điều kiện cho trước dem : =0; For i : =1 to n do IF A[i]>TB then dem:=dem +1; c. ... mảng thoả mÃn điều kiện cho trước Ví dụ: Tính tổng các phần tử trong mảng chia hết cho 3. S : =0; For i : =1 to n do IF A[i] mod 3 = 0 then S:=S+A[i]; 19 1 218 2 516 2 01 5 S = 45 Nhap vao so ngay...