记录编号 73979 评测结果 AAAAAAAAAA
题目名称 [NOIP 2006]明明的随机数 最终得分 100
用户昵称 Gravatar我密码是sjb 是否通过 通过
代码语言 Pascal 运行时间 0.003 s
提交时间 2013-10-23 18:02:13 内存使用 0.17 MiB
显示代码纯文本
program cc(input,output);
var
a:array[0..1000] of integer;
n,i,x,sum:integer;
begin
assign(input,'random.in');
assign(output,'random.out');
reset(input);
rewrite(output);
readln(n);
for i:=1 to n do
begin
read(x);
if a[x]=0 then sum:=sum+1;
a[x]:=1;
end;

writeln(sum);
for i:=1 to 1000 do
if a[i]=1 then write(i,' ');
close(input);
close(output);
end.