Viết chương trình tính mức thu nhập trung bình của các hộ gia đình trong địa phươ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 trong địa phương”

1. uses crt;

   var a: integer;

   i,n: integer;

   tb: real;

   begin

   clrscr;

   write (‘nhap so ho dan: ‘);  readln (n);

   for i:=1 to n do

   begin

   write (‘nhap thu nhap cua ho dan thu ‘,i,’: ‘);  readln (a);

   tb:=tb+a;

   end;

   tb:=tb/n;

   writeln (‘thu nhap trung binh la: ‘,tb:1:3);

   readln;

   end.

   Bình luận