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)

Question

dantam · Answer

#A_Hy      phần mở ngoặc l&agrave; giải th&iacute;ch nha

hiennhi · Answer

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.

0 bình luận về “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)”