比赛代码 - COGS

比赛	小练习赛:A组	评测结果	AAAAAAAAAA
题目名称	明明的随机数	最终得分	100
用户昵称	→震世逆空波→	运行时间	0.004 s
代码语言	Pascal	内存使用	0.17 MiB
提交时间	2014-10-21 18:36:06

显示代码纯文本

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,' ');
end.