Để khảo sát mức độ phân hóa giàu, nghèo của 1 địa phương, người ta tiến hành thu nhập thông tin về thu nhập kinh tế của từng hộ gia đình trong địa phương(khảo sát 50 hộ gia đình).

Cần viết chương trình tính mức thu nhập trung bình của các hộ gia đình trên và độ lệch giữa mức thu nhập của từng hộ gia đình so với mức thu nhập trung bình?

Trong hình thì ta test với n=3

sau khi sửa lại, sẽ như bên dưới ↓

uses crt ;
var a:array[1..51] of longint ;
max,min,i:longint ;
tb:real ;
const n=50 ;
begin
clrscr ;
for i:=1 to n do
begin
write('nhap ho thu ',i,' :') ;
readln(a[i]) ;
tb := tb+a[i] ;
end ;
tb := tb / n;
writeln('trung binh: ',tb:3:2) ;
for i:=1 to n do 
writeln('do lech cua ho thu ',i,' so voi muc trung binh la: ',tb-a[i]:3:2) ;
end.

$#khoadang09$

(1) Thu nhập bình quân (TNBQ) 1 người 1 tháng chung cả nước năm 2020 theo giá hiện hành đạt khoảng 4,2 triệu đồng, giảm khoảng 1% so với năm 2019. Bình quân mỗi năm trong thời kỳ 2016-2020, thu nhập bình quân đầu người 1 tháng chung cả nước tăng bình quân 8,2%. TNBQ 1 người 1 tháng năm 2020 ở khu vực thành thị đạt 5,6 triệu đồng, cao gấp gần 1,6 lần khu vực nông thôn (3,5 triệu đồng). Nhóm hộ giàu nhất (nhóm gồm 20% dân số giàu nhất – nhóm 5) có TNBQ 1 người 1 tháng năm 2020 đạt 9,1 triệu đồng cao gấp hơn 8 lần so với nhóm hộ nghèo nhất (nhóm gồm 20% dân số nghèo nhất – nhóm 1), với mức thu nhập đạt 1,1 triệu đồng. Vùng có TNBQ đầu người cao nhất là vùng Đông Nam Bộ (6,0 triệu đồng 1 người 1 tháng), cao gấp 2,2 lần vùng có TNBQ đầu người thấp nhất là vùng Trung du và miền núi phía Bắc (2,7 triệu đồng 1 người 1 tháng).