var a,b:array[1..10000]of longint;x,k,j,n,i,max:longint;
begin
readln(n);
j:=0;
for i:=1 to n do read(a[i]);
for i:=1 to n do
begin
x:=0;
for k:=1 to j do if b[k]=a[i] then x:=1;
if x=0 then begin j:=j+1;b[j]:=a[i];end;
end;
for i:=1 to j do write(b[i],' ');
end.
先存入一个数组a中,再逐个查看,如果跟新数组里的数字没有一样的,就放到新的数组b里面
查看是否有相同的数字时,通过一个标记x来判断,如果x变成1就说明有这个数了,如果x还是0就说明没有一样的,就可以把这个数字放进数组b里去