BÀI 9. LÀM VIỆC VỚI DÃY SỐCÂU HỎI VÀ BÀI TẬP

8. Viết chơng trình sử dụng biến mảng để tính giá trị trung bình của tổng Nsố nguyên đợc nhập vào từ bàn phím.

uses crt;

var N, i: integer;

TB: real;

A: array[1..100] of real;

begin

clrscr;

write(’Nhap so phan tu cua mang, n= ’); read(n);

for i:=1 to n do

begin

write(’Nhap gia tri ’,i,’cua mang, a[’,i,’]= ’);

readln(a[i])

end;

TB:=0;

for i:=1 to n do TB:=TB+a[i];

TB:=TB/n;

write(’Trung binh bang ’,TB);

end.