讨论 / 明明的随机数
chenyihua 2015-10-17 11: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.

查看更多回复
提交回复