uses crt;

var tn:array[1..100] of real;

s,tb:real;

i:byte;

begin

clrscr;

write('nhap so ho gia dinh: ');readln(n);

s:=0;

tb:=0;

for i:=1 to n do 

begin

write('thu nhap cua ho gia dinh thu ',i,': ');

readln(tn[i]);

s:=s+tn[i];

end;

tb:=s/n;

writeln('thu nhap trung binh cua cac ho gia dinh la: ',tb:1:2);

readln;

end.

DỊCH CHƯƠNG TRÌNH

Đầu tiên chương trình sẽ xóa sạch màn hình do lệnh clrscr;

sau đó là in ra màn hình dòng chữ "nhap so ho gia dinh: "

tiếp đó nhập giá trị cho biến n(số hộ dân) từ bàn phím và in giá trị n ra luôn màn hình ngay sau dấu:

tiếp theo là gán biến s và tb cho giá trị là 0

dùng lệnh lặp for để nhập giá trị cho từng biến trong mảng, các biến trong mảng tương ứng với một giá trị thu nhập của một hộ gia đình

sau khi nhập xong thu nhập cho 1 hộ, nó sẽ cộng thu nhập hay giá trị của biến vửa nhập vào s sau khi kết thúc lệnh for ta thu được giá trị biến s là tổng số thu nhập của các hộ gia đình

tiếp theo là lệnh gán tb:=s/n đây là lệnh dùng để tính trung bình thu nhập của mỗi hộ dân bằng cách lấy tổng số thu nhập(s) chia cho số hộ dân(n)

tiếp theo là in kết quả ra màn hình

Chương trình kết thúc

*Viết chương trình: 
Uses crt;
Var GD:array[1..10000] of real;
i,n:integer; S,TB:real;
Begin
Clrscr;
Write('Nhap so ho GD vao: '); Readln(n);
S:=0;
For i:=1 to n do
Begin
Write('Thu nhap cua ho GD[',i,'] = '); Readln(GD[i]);
S:=S+GD[i];
End;
TB:=S/n;
Writeln('Vay thu nhap TB cua cac ho GD do la: ',TB:1:2);
Readln;
End.
*Dịch chương trình: 
B1: Khai báo thư viện, Khai báo biến mảng, biến thường để tính toán bài toán
B2: Bắt đầu chương trình. Dùng lệnh xóa màn hình để sau mỗi lần tính toán sẽ không bị rối loạn các dòng chữ từ lần tính trước với lần tính hiện tại.
B3: Nhập số lượng các hộ gia đình. Sau đó khai báo số lượng đó.
B4: Có thể gán giá trị được gọi sẵn của tổng thu nhập và TB thu nhập của các hộ GĐ đó với giá trị = 0. Dùng câu lệnh lặp với số lần biết trước để chạy từ 1 đến số lượng cuối cùng của các hộ gia đình đó. Sau đó nhập số tiền thu nhập của các hộ gia đình vào.  Với câu lệnh lặp đó, ta có thể tính luôn tổng số thu nhập của các hộ GĐ đó là bao nhiêu, sau khi nhập đến thu nhập của hộ GĐ cuối cùng được giới hạn bởi lệnh khai báo số lượng các hộ GĐ ở B3
B5: Sau khi tính tổng từ hộ GĐ đầu đến hộ GD cuối, ta tính TB thu nhập của các hộ GĐ bằng bao nhiêu, bằng cách lấy công thức:" $\frac{Tong\\thu\\nhap}{\\So\\ho\\GD}$               " Sẽ ra được TB thu nhập của các hộ GĐ đó ({vd}Tạm gọi lệnh gán là TB khi có tổng thu nhập của các hộ GĐ được gán là S chia cho số lượng các hộ GĐ được gán là n)
B6: Thông báo và in ra màn hình kết quả của TB thu nhập các hộ gia đình đó. Sau đó ghi thêm lệnh "readln" để dừng kết quả đó lại. Và cuối cùng là kết thúc bài toán!
* Nhớ tick và chọn làm câu trả lời hay nhất giúp mình với nhé! Thanks :333