[問題] 開文件求平均

[Laoda245566 (草莓獸)]

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

感謝

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 114.45.178.157
→ Cypresslin:你Gradeold.txt第一行是不是有100?
→ wenni:你只讀了第一行的資料 請拿張紙自己一行一行照著做就知道
→ wenni:哪邊該改了~