[洛谷1059]明明的随机数

题目来源

www.luogu.org

原网址

http://www.luogu.org/problem/show?pid=1059#

题目描述

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

输入输出格式

输入格式：

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

输出格式：

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

输入输出样例

输入样例#1：

  10
  20 40 32 67 40 20 89 300 400 15

输出样例#1：

  8
  15 20 32 40 67 89 300 400

说明

NOIP 2006 普及组 第一题

题解

此题由于数据范围都不大，所以方法较多。可以采用桶排序的方法；也可以先排序，再依次找重复的数字（我采用的就是这种方法）。

代码

var

  n,i,j,t:longint;

  a,p:array[1..100] of longint;

begin

  readln(n);

  for i:=1 to n do p[i]:=0;

  for i:=1 to n do read(a[i]);

  for i:=1 to n-1 do

    for j:=i+1 to n do

    if a[i]>a[j] then begin t:=a[i];a[i]:=a[j];a[j]:=t;end;

  for i:=1 to n do

    for j:=i+1 to n do if a[i]=a[j] then p[i]:=1;

  t:=0;

  for i:=1 to n do if p[i]=0 then inc(t);

  writeln(t);

  for i:=1 to n-1 do if p[i]=0 then write(a[i],' ');

  writeln(a[n]);

end.