【模拟】明明的随机数

题目:明明的随机数 rqnoj1

题目描述

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

输入格式

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

输出格式

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

样例输入

1020 40 32 67 40 20 89 300 400 15 

样例输出

815 20 32 40 67 89 300 400

 

这道题应该是很简单了，一次快排，然后判断去重即可，代码就只有Pascal的了

可能代码有点冗长。。。不过思路还是清楚

 

program rqnoj;var  n:longint;  a:array[0..200] of longint;procedure init;begin  assign(input,'rqnoj1.in');  assign(output,'rqnoj1.out');  reset(input);  rewrite(output);end;procedure outit;begin  close(input);  close(output);  halt;end;procedure readdata;var  i:longint;begin  read(n);  for i:=1 to n do    read(a[i]);end;procedure exchange(var a,b:longint);var  t:longint;begin  t:=a;a:=b;b:=t;end;procedure qsort(l,r:longint);var  i,j,x:longint;begin  i:=l;j:=r;x:=a[(i+j)shr 1];  repeat    while a[i]<x do inc(i);    while a[j]>x do dec(j);    if i<=j then    begin      exchange(a[i],a[j]);      inc(i);      dec(j);    end;  until i>j;  if i<r then qsort(i,r);  if j>l then qsort(l,j);end;procedure main;var  i,t:longint;begin  qsort(1,n);  t:=n;  for i:=2 to t do  begin    if a[i]=a[i-1] then      dec(t);  end;  writeln(t);  for i:=1 to n-1 do  begin    if a[i]<>a[i+1] then      write(a[i],' ');  end;  if a[n]<>a[n-1] then    writeln(a[n]);end;begin  init;  readdata;  main;  outit;end.