ERWIN ROMMEL 2017-10-26 05:03:04
点我顶贴
收藏
删除
var
n,t,i,j,l,k:longint;
a:array [1..1000] of longint;
begin
readln(n);
for i:=1 to n do read(a[i]);
for j:=1 to n do
begin
for l:=j+1 to n do if a[j]=a[l] then
begin
a[l]:=a[n];
dec(n);
end;
for k:=j+1 to n do if a[j]>a[k] then
begin
t:=a[j];
a[j]:=a[k];
a[k]:=t;
end;
end;
writeln(n);
for i:=1 to n-1 do write(a[i],' ');
write(a[n])
end.