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.