记录编号 110543 评测结果 AAAAAAAAAA
题目名称 [NOIP 2006]明明的随机数 最终得分 100
用户昵称 Gravatarwi-fi侠 是否通过 通过
代码语言 Pascal 运行时间 0.002 s
提交时间 2014-07-11 19:58:30 内存使用 0.17 MiB
显示代码纯文本
var a:array[1..100] of integer;
    b:array[1..1000] of integer;
    s,i,n:integer;
begin
    assign(input,'random.in'); reset(input);
    assign(output,'random.out'); rewrite(output);
    readln(n);
    for i:=1 to n do read(a[i]);
    readln;
    for i:=1 to n do b[a[i]]:=1;
    s:=0;
    for i:=1 to 1000 do if b[i]=1 then inc(s);
    writeln(s);
    for i:=1 to 1000 do if b[i]=1 then write(i,' ');
    writeln;
    close(input);
    close(output);
end.