Помогите с алгоритмом

← →
Nikk (2003-12-17 20:24) [0]

Люди! Совсем запарился!!! Дайте пожалуйста мысль!
Есть массив, состоящий из повторяющихся чисел. Необходимо создать из него такой массив, где каждое из чисел первого массива будет присутствовать только один раз????

← →
TUser (2003-12-17 20:29) [1]

for i:=0 to length(ar1)-1 do begin
f:=false;
for j:=0 to length(ar2)-1 do
f:=f or (ar2[j]=ar1[i]);
if not f then begin
setLength(ar2.length(ar2)+1;
ar2[length(ar2)-1]:=ar1[j];
end;
end;

Помогите с алгоритмом Найти похожие ветки