pascal的一维数组问题有N个元素的整数数组，将数组中值相同的元素删除得只剩下一个，并把其余元素全部移到前面。

Question

pascal的一维数组问题
有N个元素的整数数组，将数组中值相同的元素删除得只剩下一个，并把其余元素全部移到前面。

Answer 1

这是我临时写的，希望对你有所帮助。
program shanchu;
const n=10;(此处的值安照你的需要取值，它表示一唯数组的元素个数)
var a:array[1..n] of interger;
i,j,s,t:integer;
begin
for i:=1 to n do
read(a[i]);
t:=0;
for i:= 1 to n do
for j:=i+1 to n do
if a[i]=a[j] then
begin
a[j]:=a[n-t];
t:=t+1;
s:=n-t;
end;
for i:=1 to s do
writeln(a[i]);
end.
祝你编程愉快！