Question

Pascal语言，编程高手来啊！急‘

有N个无序的数存放在A数组中，请将相同的数删成只剩下一个，
并输出经过删除的数列

要过程！

Answer 1

var
A,b:array[1..maxnum] of integer;//或其他数据类型
i,j,s:integer;
flag:boolean;
begin
readln(n)
{这里补充初始化A的语句}
s:=0;
for i:=1 to n do
begin
flag:=true;
for j:=1 to s do if A[i]=b[j] then begin flag:=false;break;end;
if flag then begin
inc(s);
b[s]:=A[i];
write(b[s],' ');
end;
end
end.

Answer 2

可以建一个HASH表，从头输出，如果已经有了就不输出，比楼上的效率高多了