作业帮pascal:明明的随机数明明想在学校中请一些同学一起做一项问卷调查,为了实验的客观性,他先用计算机生成了N个1到1000之间的随机整数（N≤100）,对于其中重复的数字,只保留一个,把其余相同的
来源：学生作业帮助网 编辑：作业帮 时间：2024/05/08 09:21:00
pascal:明明的随机数明明想在学校中请一些同学一起做一项问卷调查,为了实验的客观性,他先用计算机生成了N个1到1000之间的随机整数（N≤100）,对于其中重复的数字,只保留一个,把其余相同的
pascal:明明的随机数
明明想在学校中请一些同学一起做一项问卷调查,为了实验的客观性,他先用计算机生成了N个1到1000之间的随机整数（N≤100）,对于其中重复的数字,只保留一个,把其余相同的数去掉,不同的数对应着不同的学生的学号.然后再把这些数从小到大排序,按照排好的顺序去找同学做调查.请你协助明明完成“去重”与“排序”的工作.
输入格式
输入有2行,第1行为1个正整数,表示所生成的随机数的个数：
N
第2行有N个用空格隔开的正整数,为所产生的随机数.
输出格式
输出也是2行,第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
pascal:明明的随机数明明想在学校中请一些同学一起做一项问卷调查,为了实验的客观性,他先用计算机生成了N个1到1000之间的随机整数（N≤100）,对于其中重复的数字,只保留一个,把其余相同的
var
a:array[1..1000]of longint;
n,i,x,s:longint;
begin
read(n);
for i:=1 to 1000 do a[i]:=0;
for i:=1 to n do begin
read(x);
a[x]:=1;
end;
s:=0;
for x:=1 to 1000 do
if a[x]=1 then inc(s);
writeln(s);
for x:=1 to 1000 do
if a[x]=1 then write(x,' ');
end.