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)

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)”

  1. 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.

    Bình luận

Viết một bình luận