404510 2011-12-14 05:32:00
点我顶贴
收藏
删除
var
b:array[0..1000] of integer;
n,i,a,c:integer;
begin
readln(n);
for i:=1 to n do
begin
read(a);
inc(b[a]);
end;
for i:=0 to 1000 do
if b[i]<>0 then inc(c);
writeln(c);
for i:=0 to 1000 do
if b[i]<>0 then write(i,' ');
writeln;
end.