读入文本文件报错

百事可乐

看看数组是否分配了？你可以把 read 语句改成 PR(I)= 0 这样的赋值语句来判断。
改了之后若能运行，说明数组是分配了的，是读取文件的原因。
若不能运行，说明是数组的问题。

百事可乐

最好给出复制粘贴的代码（不是截图），还有错误提示。