Bài 9 - Câu 6 trang 78 SGK Tin học 8

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 :

PHP:

1. uses crt;
2. var x:array[1..100] of real;
3. n,i:byte;
4. dlc,xtb:real;
5. BEGIN
6. clrscr;
7. write('Nhap so ho gia dinh= ');readln(n);
8. xtb:=0;
9. for i:=1 to n do
10. begin
11. write('Muc thu nhap cua ho gia dinh thu ',i,'= ');
12. readln(x[i]);
13. xtb:=xtb+x[i];
14. end;
15. xtb:=xtb/n;
16. writeln('-------------------------------------------------------');
17. writeln('=> Thu nhap trung binh cua cac ho: ');
18. writeln(xtb:16:2);
19. writeln('-------------------------------------------------------');