Question

fortran程序无法运行。计算一维数组中数字的平均值。

program example
implicit none
integer,parameter::n=10
integer::a(n)=(/2,4,6,8,10,12,14,16,18,20/)
real sum,av
sum=0.0
do i=1,n
read(*,*),a(i)
sum=sum+a(i)
end do
av=sum/n

write(*,*)"平均值为:",av
end

是哪里错了呢。。。

Answer 1

没有定义 i，加一句
integer i

就可以了。

另外，为什么要 read(*,*) a(i) 呢？