记录编号 177491 评测结果 AAAAAAAAAA
题目名称 [NOIP 2006]明明的随机数 最终得分 100
用户昵称 Gravatarwyc 是否通过 通过
代码语言 Pascal 运行时间 0.006 s
提交时间 2015-08-12 09:33:51 内存使用 0.17 MiB
显示代码纯文本
var
n,i,j:integer;
a:array[1..1000] of boolean;
begin
assign(input,'random.in');
assign(output,'random.out');
reset(input);
rewrite(output);
fillchar(a,sizeof(a),false);
read(n);
for i:=1 to n do
begin
read(j);
a[j]:=true;
end;
j:=0;
for i:=1 to 1000 do
if a[i] then j:=j+1;
writeln(j);
for i:=1 to 1000 do
if a[i] then write(i,' ');
close(input);
close(output);
end.