Задача: удалить из массива все элементы, встречающиеся в нем 2 раза. Как лучше написать поиск?
{...}
for i := 1 to n do
for j := i+1 to n-1 do begin
if arr[i] = arr[j] then begin
end;
end;
{...}
for i:=1 to count do
begin
s:=0;
for j:=1 to count do
if A[i]=A[j] then
s:=s+1;
if s = 1 then
вот так вроде... хоть и поздно=) но может кому понадобицо..