yangyihuan 2018-04-09 05:55:45
点我顶贴
收藏
删除
var
n,i,s,t,j:longint;
a,b:array[1..10000] of longint;
begin
readln(n);
s:=n;
for i:=1 to n do
read(a[i]);
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]=a[j] then
begin
b[i]:=a[i];
s:=s-1;
end
else
if a[i]>a[j] then
begin
t:=a[i];
a[i]:=a[j];
a[j]:=t;
end;
writeln(s);
for i:=1 to n do
if b[i]<>a[i] then
write(a[i],' ');
end.