956353832 2013-10-23 05:40:00
点我顶贴
收藏
删除
var n,i,x,max:longint;
a:array[1..100000] of longint;
begin
read(n);
for i:=1 to n do
begin
read(x);
if a[x]=1 then
dec(n)
else
a[x]:=1;
if x>max then
max:=x;
end;
writeln(n);
for i:=1 to max do
if a[i]<>0 then
write(i,' ');
end.
#1 knea@2013-10-23 05:40:00
31665
回复
删除
大误
楼主的程序应该有误吧？
if a[x]=1 then
dec(n)
问题出在这句话上面，在进行for语句循环时【例如for i:=1 to n do】，不能对i与n进行更改，否则会报错