您现在的位置:小学生自学网>> 信息>> 学习电脑

数组的处理——去掉复制数字(顺序不变)

作者: 来源: 发布时间:2017年08月07日 点击数:
 
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里去