此题水！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！

RP

var

z:array[1..10000]of integer;

a:array[1..10000]of integer;

b,c,d,e,f,g,h,i:integer;

begin

read(b);

readln;

for c:=1 to b do read(a[c]);

for d:=1 to b do

begin

z[a[d]]:=a[d];

end;

for e:=1 to 10000-1 do

begin

if z[e]<z[e+1] then f:=z[e]; z[e]:=z[e+1]; z[e+1]:=f;

end;

for h:=1 to 10000 do

begin if z[h]<>0 then i:=i+1; end;

write(i);

writeln;

for g:=1 to 10000 do

begin

if z[g]<>0 then write(z[g],' ');

end;

end.

好水的题啊！！！！！！！！！！！！！嘎嘎嘎嘎嘎嘎嘎嘎！！！！！！！！！！！！！！！！

回复 沙发wjcwjc2 的帖子

积分转移贴？删了？