记录编号	964	评测结果	AAAAAAAAAA
题目名称	[NOIP 2006]明明的随机数	最终得分	100
用户昵称	rottenwood	是否通过	通过
代码语言	Pascal	运行时间	10.000 s
提交时间	2008-07-23 15:21:14	内存使用	0.00 MiB

Program random;
Var
f1,f2:text;
   n,k,i:integer;
   a:array [1..100] of integer;

procedure Tsort(q:integer);
Var
   temp:array [1..1000] of boolean;
   i,j:integer;
Begin
   k:=0;
   fillchar(temp,sizeof(temp),false);

   For i:=1 to q do
     temp[a[i]]:=true;

   fillchar(a,sizeof(a),0);
   For i:=1 to 1000 do
     if temp[i] then
        Begin
          inc(k);
          a[k]:=i;
        End;
End;
Begin
assign(f1,'random.in');reset(f1);
assign(f2,'random.out');rewrite(f2);
   Readln(f1,n);
   For i:=1 to n do read(f1,a[i]);
   tsort(n);
   Writeln(f2,k);
   For i:=1 to k-1 do Write(f2,a[i],' ');
   writeln(f2,a[k]);
   close(f2);
End.