NOIP2006复赛试题及测试数据正式发布！提高加普及！ [复制链接]

各位老手帮忙解答一下：测试时要注意什么问题！
因为我的程序自己测试能通过，为什么成绩是0分呢？

我跟楼上的情况一样
会不会是头文件的问题

那们楼主有NOIP2006普及组第二题的试题分析及源程序，急用，请各位大侠帮帮忙，在这里多谢谢了

太好了，谢谢楼主

这次我才110
不过比上次 好
上次我才0
可怜可怜
唉

我看得0分是编译有问题
比如说:你用的路径是 绝对路径还是 相对路径
这很重要
搞不好就0分
还有
你用的是BP还是FP
BP要删除原路径的
不会编译就要请老师帮忙

program ex_random;
var a:array[1..1000]of boolean;
  n,m,i,k:integer;
procedure setIO;
begin
  assign(input,'random.in');
  reset(input);
  assign(output,'random.out');
  rewrite(output);
end;

procedure closefile;
begin
  close(input);
  close(output);
end;

begin
  setIO;
  fillchar(a,sizeof(a),false);
  k:=0;
  readln(n);
  for i:=1 to n do
  begin
      read(m);
      if not a[m] then
      begin
          a[m]:=true;
          k:=k+1;
      end;
  end;
  writeln(k);
  k:=1;
  for i:=1 to 1000 do
      if a then write(i,' ');
  closefile;
end.

终于找到了！！！
好喜欢啊！！！

申请的登陆好慢

谢谢!