Question

求大神指点fortran的错误

program a
parameter(max_num=20)
real a(max_num)
real sum,av,i
integer num
sum=0.0
do i=1,max_num
read*,a(i)
sum=sum+a(i)
end do
av=sum/max_num
num=0
do i=1,max_num
if (a(i)>av) then
num=num+1
endif
end do
print*,'学生平均成绩为:',av
print*,'大于平均值的学生个数:',num
end

Answer 1

program abbbb !// 因为有个数组叫 a ，所以程序名建议换一个，例如 abbb parameter(max_num=20)
real a(max_num)
real sum,av
integer i !// i 是循环变量，建议用整型
integer num
sum=0.0
do i=1,max_num
read*,a(i) sum=sum+a(i) end do
av=sum/max_num
num=0
do i=1,max_num
if (a(i)>av) then
num=num+1
endif
end do print*,'学生平均成绩为:',av
print*,'大于平均值的学生个数:',num
end

追问

那个命名是一个问题，我改了，还有两处错显示的是

追答

还有 i 要定义为 integer
在我这边，你的代码改了两处后就可以正常运行了。

如果你那边的编译器还有问题，建议给出错误提示信息，以便判断。

追问

-----------^
D:\for99\EEEE\aaa.f90(16) : Error: The statement following the Logical IF statement is invalid.
if(a(i)>av)

追答

if(a(i)>av) 后面有 then