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

program bt;

var a:array[1..9999]  of longint;

      n,tb,dem: longint;

writeln (‘nhap n’); readln (n);

for i:= 1 to n do 

begin

writeln (‘nhap pt thu ‘ , i, ” );

readln (a[i]);

end;

tb:= 0;

for i:=1 to  n do

begin

tb := tb+a[i] ;

dem:= dem+1;

end;

tb:= tb/dem;

writeln (‘gia tri tb la’,tb);

readln

end. 

Nho vote cho minh nha