Viết chương trình tính thu nhập trung bình của các hộ gia đình trong khu phố em ở

0 bình luận về “Viết chương trình tính thu nhập trung bình của các hộ gia đình trong khu phố em ở”

1. var a: array[1..250] of longword;

         n, i: byte;

         s: qword;

   begin

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

          s:=0;

          for i:=1 to n do

                 begin

                     write(‘thu nhap cua gia dinh thu ‘, i, ‘la: ‘);

                    readln(a[i]);

                    S:=s + a[i];

                 end;

          write(‘Thu nhap trung binh: ‘, s/n);

          readln

   end.

   Bình luận

2. program thu_nhap_trung_binh;

   uses crt;

   var A:array[1..1000] of longint;

         n,i:integer;

         t:longint;

   begin

          clrscr;

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

          t:=0;

          for i:=1 to n do

                 begin

                        write(‘Nhap thu nhap cua gia dinh thu ‘,i,’: ‘);  readln(A[i]);

                        t:=t+A[i];

                 end;

          write(‘Thu nhap trung binh o khu pho la: ‘,t/n:0:0);

          readln;

   end.

   Bình luận