begin

　　  read(stfile,st[i]);

　　  with st[i] do

　　  begin

　　  sumst[i]:=0;

　　  for j:=1 to m do

　　  begin

　　  sumst[i]:=sumst[i]+score[j];

　　  sumsub[j]:=sumsub[j]+score[j];

　　  end;

　　  end;

　　  end;

　　close(stfile);

　　 sum:=0;

　　 for i:=1 to n do

　　   sum:=sum+sumst[i];

　　 for i:=1 to n do

　　    begin

　　    with st[i] do

　　    begin

　　    write(name);

　　    for j:=1 to m do write(score[j]:6);

　　    end;

　　    writeln(sumst[i]:6);

　　    end;

　　 write('sum=');

　　 for i:=1 to m do

　　 write(sumsub[i]:6);

　　 writeln(sum:8);

　　 end;

　　  begin

　　  newfile;

　　  jisuan;

　　 end.

　　练习：

　　编写程序从磁盘上读取一个由100个实数组成的实型数据文件(indata.dat)，以此文件中所有大于平均值的实数建立一个名为“above.dat”的文件，其余的建立一个名为“rest.dat”的文件。

　　往期最新阅读：信息学竞赛Pascal语言：集合类型（八）　　

　　　　　　　　　信息学竞赛Pascal语言：子界与枚举类型（七）

　　更多内容，请参加合肥奥数网“杯赛竞赛”频道。