dimension a(10)
real a
integer n
data a/1,2,3,4,5,6,7,8,9,10/
data n/10/
write(*,*) aver(a,n)
stop
end
function aver(a,n)
dimension a(n)
real a,sum
integer n,i
sum=0
do 10 i=1,n
sum=sum+a(i)
10 continue
aver=sum/n
return
end
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024