n=" "
@ 2,10 say "计算n个数的平均值,先输入数值个数n" get n picture"999999"
read
n=val(n)
DIMENSION x(n)
store 0 to x
s=0
for i = 1 to n
@4,20 say "输入第"+alltrim(str(i))+"个数值" get x(i) picture"999999"
read
s=s+x(i)
endfor
A=s/n
@4,20 say ""+alltrim(str(n))+"个数值的平均值为" +str(A,10,4)