Viết chương trình Pascal nhập vào thu nhập của 50 hộ dân a) tính và đưa ra màn hình thu nhập trung bình của 50 hộ dân b) cho biết có bao nhiêu hộ dân có thu nhập cao hơn thu nhập trung bình ở câu a

Chương trình Pascal để nhập vào thu nhập của 50 hộ dân và tính thu nhập trung bình, sau đó đếm số hộ dân có thu nhập cao hơn thu nhập trung bình như sau: ``` program TinhThuNhap; var i, tong, thuNhapTB, soThuNhapCao: integer; thuNhap: array[1..50] of integer; begin // Nhập vào thu nhập của 50 hộ dân for i := 1 to 50 do begin write('Nhap vao thu nhap cua ho dan ', i, ': '); readln(thuNhap[i]); end; // Tính tổng thu nhập của 50 hộ dân tong := 0; for i := 1 to 50 do begin tong := tong + thuNhap[i]; end; // Tính thu nhập trung bình của 50 hộ dân thuNhapTB := tong div 50; writeln('Thu nhap trung binh cua 50 ho dan la: ', thuNhapTB); // Đếm số hộ dân có thu nhập cao hơn thu nhập trung bình soThuNhapCao := 0; for i := 1 to 50 do begin if thuNhap[i] > thuNhapTB then soThuNhapCao := soThuNhapCao + 1; end; writeln('So ho dan co thu nhap cao hon thu nhap trung binh la: ', soThuNhapCao); readln; end. ``` Giải thích: - Dòng 3: khai báo biến i, tong, thuNhapTB, soThuNhapCao kiểu integer và mảng thuNhap có 50 phần tử kiểu integer. - Dòng 7-10: sử dụng vòng lặp for để nhập vào thu nhập của 50 hộ dân. - Dòng 14-17: tính tổng thu nhập của 50 hộ dân bằng cách duyệt qua mảng thuNhap và cộng dồn vào biến tong. - Dòng 21-22: tính thu nhập trung bình của 50 hộ dân bằng cách chia tổng thu nhập cho số hộ dân (50). - Dòng 24-28: sử dụng vòng lặp for để đếm số hộ dân có thu nhập cao hơn thu nhập trung bình. Nếu thu nhập của hộ dân thứ i lớn hơn thu nhập trung bình, tăng biến soThuNhapCao lên 1. - Dòng 30-31: hiển thị kết quả thu nhập trung bình và số hộ dân có thu nhập cao hơn thu nhập trung bình. Chú ý: Chương trình này giả định rằng người dùng sẽ nhập đúng định dạng và giá trị của thu nhập. Nếu không, chương trình sẽ không hoạt động đúng.