比赛 小练习赛:A组 评测结果 AAAAAAAAAA
题目名称 明明的随机数 最终得分 100
用户昵称 safhsdajkfhsad 运行时间 0.002 s
代码语言 Pascal 内存使用 0.17 MiB
提交时间 2014-10-21 19:59:19
显示代码纯文本
const
  maxnum=10010;
type
  tdata=array[0..maxnum] of boolean;
var
  data:tdata;
  n,i,x,vans:longint;

begin
  assign(input,'random.in');
  reset(input);
  assign(output,'random.out');
  rewrite(output);
  readln(n);
  fillchar(data,sizeof(data),false);
  vans:=0;
  for i:=1 to n do
    begin
      read(x);
      if (not(data[x])) then
        begin
          inc(vans);
          data[x]:=true;
        end;
    end;

  writeln(vans);
  for i:=1 to maxnum do
    if (data[i]) then
      write(i,' ');
  writeln;

  close(input);
  close(output);
end.