Draco 2016-06-17 20:28:15
点我顶贴
收藏
删除
var
i,x,n,sum:longint;
a:array[1..1000] of boolean;
begin
fillchar(a,sizeof(a),false);
sum:=0;
readln(n);
for i:=1 to n do
begin
read(x);
if not(a[x]) then
begin
inc(sum);
a[x]:=true;
end;
end;
writeln(sum);
for i:=1 to 1000 do
if a[i] then write(i,' ');
end.