数组的处理——去掉复制数字（顺序不变）-小学生自学网

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

数组的处理——去掉复制数字（顺序不变）

作者：来源：发布时间：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里去