viết chương trình tính mức thu nhập trung bình của các hộ gia đình và độ lệch giữa mức thu nhập của hộ đó so với thu nhập trung bình (sử dụng mảng)
viết chương trình tính mức thu nhập trung bình của các hộ gia đình và độ lệch giữa mức thu nhập của hộ đó so với thu nhập trung bình (sử dụng mảng)
#A_Hy
phần mở ngoặc là giải thích nha
program mang;
uses crt;
var A:array [1..500] of integer;
n,i,TB,thunhapTB: integer;
Begin
clrscr;
write(‘Nhap so ho gia dinh: ‘); readln(n);
for i:=1 to n do
begin
write(‘Ho ‘,i,’ (d): ‘); readln(A[i]);
thunhapTB:=thunhapTB+A[i];
end;
writeln(‘Thu nhap trung binh cua cac ho: ‘,thunhapTB/n:2:0,’d’);
writeln(‘Nhap muc thu nhap trung binh: ‘); readln(TB);
for i:=1 to n do writeln(‘Ho ‘,i,’ lech voi muc TB: ‘,A[i]-TB,’d’);
readln
End.