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

Viết chương trình sử dụng biến mảng để giải quyết bài 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(‘——————————————————-‘);