2006年分区联赛普级组之一 明明的…

Description

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

Input

输入有2 行，第1 行为1 个正整数，表示所生成的随机数的个数：N 
第二行有N 个用空格隔开的正整数，为所产生的随机数。 

Output

输出也是2 行，第1 行为1 个正整数M，表示不相同的随机数的个数。 
第2 行为M 个用空格隔开的正整数，为从小到大排好序的不相同的随机数。 

Sample Input

 

10 

 20 40 32 67 40 20 89 300 400 15 

 

Sample Output

 

8 

15 20 32 40 67 89 300 400 

解题思路：先把读入的数据在数组相应的地方标记，然后统计有多少个个不同的数，最后输出即可。

程序：

var

  n,x,i,s:longint;

  a:array[1..1000] of longint;

begin

  readln(n);

  for i:=1 to n do

  begin

    read(x);

    inc(a[x]);

  end;

  for i:=1 to 1000 do

    if a[i]<>0 then inc(s);

  writeln(s);

  for i:=1 to 1000 do

    if a[i]<>0 then write(i,' ');

end.

版权属于: Chris

原文地址: http://blog.sina.com.cn/s/blog_83ac6af80102v0i4.html

转载时必须以链接形式注明原始出处及本声明。