如何用fortran语言求n个数的平均值 50
2个回答
展开全部
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
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
追问
这不是10数求平均吗
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
不含糊女
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
