Câu 6. Viết chương trình sử dụng biến mảng để giải quyết toán nêu ở ví dụ 1.

Lời giải :

uses crt ;

var x:array[1..100] of real;

n,i:byte ;

dlc,xtb:real ;

BEGIN

clrscr ;

write(' Nhap so ho gia dinh = '); readln (n);

xtb :=0;

for i:=1 to n do

begin

write(' Muc thu nhap cua ho gia dinh thu ', i ,'= ');

readln (x[ i ]);

xtb := xtb+x [ i ];

end;

xtb := xtb /n;

writeln ('-------------------------------------------------------');

writeln ('=> Thu nhap trung binh cua cac ho: ');

writeln (xtb:16:2);

writeln ('-------------------------------------------------------');