Question

求n个数的平均值 fortran语言

Answer 1

	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