您所在位置：主题：[讨论]这道题有高手会嘛？
lesson01
[专家分：0] 发布于 2009-01-03 13:24:00
var
i:longint;
f:text;
begin
assign(f,'count,in');
rewrite(f);
randomize;
for i:=1 to 1000 do begin
writeln(f, random(100));
end;
close(f);
end.
通过上述程序生成的数据文件，自己编制程序统计文件中每个数据出现的次数。按照从小到大的顺序输出到count.out 文件中
格式为：
3 12
{表示出现了12次}
5 20
请那位高手指点一下，谢谢了！
拜托各位了
i:longint;
f:text;
begin
assign(f,'count,in');
rewrite(f);
randomize;
for i:=1 to 1000 do begin
writeln(f, random(100));
end;
close(f);
end.
通过上述程序生成的数据文件，自己编制程序统计文件中每个数据出现的次数。按照从小到大的顺序输出到count.out 文件中
格式为：
3 12
{表示出现了12次}
5 20
请那位高手指点一下，谢谢了！
拜托各位了
