记录编号 2804 评测结果 AAAAAAAAAA
题目名称 [NOIP 2006]明明的随机数 最终得分 100
用户昵称 Gravatarzpl123 是否通过 通过
代码语言 Pascal 运行时间 0.041 s
提交时间 2008-09-27 20:06:21 内存使用 0.11 MiB
显示代码纯文本
program random;
const maxn=1000;
var a:array[1..maxn]of boolean;
i,n,x,max:longint;

procedure first;
begin
assign(input,'random.in');
assign(output,'random.out');
reset(input);rewrite(output);
end;

Begin
first;
readln(n);max:=0;
fillchar(a,sizeof(a),0);
for i:=1 to n do
begin
read(x);
a[x]:=true;
if max<x then max:=x;
end;
n:=0;
for i:=1 to max do if a[i] then inc(n);
writeln(n);
for i:=1 to max-1 do
if a[i] then write(i,' ');
if max<>0 then writeln(max);
close(input);close(output);
end.