fzkhzk 2014-09-14 07:36:22
点我顶贴
收藏
删除
var
i,n,ans:longint;
f:array[1..1000] of byte;
a:array[1..100] of integer;
begin
read(n);
for i:=1 to n do
begin
read(a[i]);
if f[a[i]]=0 then
begin
f[a[i]]:=1;
inc(ans);
end;
end;
writeln(ans);
for i:=1 to 1000 do if f[i]<>0 then write(i,' ');
end.