integer x, y, sum
real mean
open(unit=1,file='Gradeold.txt')
read(1,*)x,y
sum=0
do i=1,62
sum=sum+y
end do
mean=sum/62
write(*,*)"mean",mean
end
请问一下
哪里打错了
我怎么执行都是100
感谢

你Gradeold.txt第一行是不是有100?

你只读了第一行的资料 请拿张纸自己一行一行照着做就知道哪边该改了~