讨论 / 新手刚学,这是类似于桶排的思路吧?
Draco 2016-06-17 20:28:15
点我顶贴 收藏 删除
var

i,x,n,sum:longint;

a:array[1..1000] of boolean;

begin

fillchar(a,sizeof(a),false);

sum:=0;

readln(n);

for i:=1 to n do

begin

read(x);

if not(a[x]) then

begin

inc(sum);

a[x]:=true;

end;

end;

writeln(sum);

for i:=1 to 1000 do

if a[i] then write(i,' ');

end.

#1 Draco@2016-06-17 20:28:59
回复 删除
明明的随机数
查看更多回复
提交回复