Cho bài toán : Viết phương trình nhập từ bàn phím nhiệt độ các ngày trong tuần, sau đó tính và thông báo nhiệt độ trung bình của tuần đó. - Hãy xác định bài toán ( input,output)m - viết phương trình ? - Nêu chương trình yêu cầu tính nhiệt độ trung bình của năm thì chúng ta sẽ bị gặp khó khăn gì ?

- Xác định bài toán : 

Input : nhiệt độ mỗi ngày trong tuần 

Output : nhiệt độ trung bình của tuần 

- Viết chương trình :

program nhiet_do;
uses crt;
type ArrInt = array[1..50 ] of integer ;
var i, n: integer;
    tb : real;
    A: ArrInt;
begin
clrscr;
tb:= 0;
write(' nhap so ngay trong tuan: '); readln( n);
for i:= 1 to n do 
begin 
write(' nhap nhiet do ngay thu', i,':');
readln(A[i]);
end;
for i:= 1 to n do 
tb:=(A[i]+ tb  );
writeln(' nhiet do trung binh cua tuan la :', (tb/ 7):8:2 );
readln
end.

- Nếu chương trình yêu cầu tính nhiệt độ năm, với n ngày, n khá lớn, với cách làm khai báo từng biến không nhưng đòi hỏi một khối lượng khai báo lớn mà chương trình cũng tính toán dài