chenyihua 2015-10-16 20:15:16
点我顶贴
收藏
删除
var a:array[1..1000] of boolean;
b:array[1..100] of longint;
i,j,x,n:integer;
begin
for i:=1 to 1000 do
a[i]:=false;
read(n);
for i:=1 to n do
begin
read(b[i]);
a[b[i]]:=true;
end;
for i:=1 to 1000 do
begin
if a[i]= true then
write(i,' ');
end;
end.