xiaohuang 2017-03-14 23:35:04
点我顶贴
收藏
删除
var n,i,k,x:longint;
tong:array[-1000..1000] of longint;
begin
readln(n);
fillchar(tong,sizeof(tong),0);
for i:=1 to n do
begin
read(x);
tong[x]:=1;
end;
k:=0;
for i:=-1000 to 1000 do
if tong[i]>0 then inc(k);
writeln(k);
k:=0;
for i:=-1000 to 1000 do
if tong[i]>0 then
begin
inc(k);
if k=1 then write(i) else write(' ',i);
end;
end.