记录编号 73230 评测结果 AAAAAAAAAA
题目名称 [NOIP 2006]明明的随机数 最终得分 100
用户昵称 Gravatar郭垚池 是否通过 通过
代码语言 Pascal 运行时间 0.001 s
提交时间 2013-10-20 21:05:40 内存使用 0.17 MiB
显示代码纯文本
var
 n,i,sam,j:integer;
s:array[1..1000] of integer;
begin
assign(input,'random.in'); 
assign(output,'random.out');
 reset(input); 
rewrite(output);
 readln(n);
for i:=1 to n do
  begin
   read(j);
   if s[j]<>1 then
    sam:=sam+1;
  s[j]:=1; 
 end;
 writeln(sam);
for i:=1 to 1000 do
  if s[i]=1 then
    write(i,' ');
 close(input);
 close(output);
end.