明明想在学校中请一些同学一起做一项问卷调查，为了实验的客观性，他先用计算机生成了N个1到1000之间的随机整数（N≤100），对于其中重复的数字，只保留一个，把其余相同的数去掉，不同的数对应着不同的学生的学号。然后再把这些数从小到大排序，按照排好的顺序去找同学做调查。请你协助明明完成“去重”与“排序”的工作。

有2行，第1行为1个正整数，表示所生成的随机数的N个数：

第2行有N个用空格隔开的正整数，为所产生的随机数

第1行为1个正整数M，表示不相同的随机数的个数。第2行为M个用空格隔开的正整数，为从小

到大排好序的不相同的随机数。

10

20 40 32 67 40 20 89 300 400 15

8

15 20 32 40 67 89 300 400

题解：

排序。

可以用桶排，也可以用选排，不过我用了桶排（偷懒一下）。

var n,i,s,ans:longint;

    a:array[0..1001]of boolean;

begin

 readln(n);

 for i:=1 to n do

  begin

   read(s);

   a[s]:=true;

  end;

 for i:=1 to 1000 do ans:=ans+ord(a[i]);

 writeln(ans);

 for i:=1 to 1000 do

  if a[i] then write(i,‘ ‘);

end.