有n个无序的数存放在a数组中，请将相同的那些数删得只剩下一个，输出经过删除后的数列.

以下也只对整数有效（尊重一下上面的仁兄），要输入实数，只需将第2，3行的“integer”改为“real”即可；

program aa;
var a:array[1..1000] of integer;
b:array[1..1000] of integer;
var i,n,v:integer;
begin
for i:=1 to 1000 do read(a[i]);
for i:=1 to 1000 do
begin
for n:=1 to 1000 do
begin
if n<i then
begin
if a[i]<>a[n] then
begin
for v:=1to 1000 do
b[v]:=a[i];
end;end;end;end;
for v:=1to 1000 do write(b[v]);
end.
没有说明，请自领会。

以下程序只对输入的整数有效
var
a:array[1..1000]of integer;
mid,i,j:integer;
begin
for i:=1 to 1000 do
read(a[i]);
readln; //读入无序的数a
for i:=1 to 1000 do
begin
for j:=1 to 1000 do
begin
if a[j]<a[j+1] then
begin
mid:=a[j]; a[j]:=a[j+1]; a[j+1]:=mid;
end;
end;
end; //进行排序
for i:=1 to 100