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?

你只讀了第一行的資料 請拿張紙自己一行一行照著做就知道哪邊該改了~