Массив Опции

[-Маша-]

Задача: удалить из массива все элементы, встречающиеся в нем 2 раза. Как лучше написать поиск?

[Altair]

{...}
for i := 1 to n do 
   for j := i+1 to n-1 do begin
      if arr[i] = arr[j] then begin
      end;
   end;
{...}

[volvo]

удалить из массива все элементы, встречающиеся в нем 2 раза

Ровно 2 раза? Или как минимум 2 раза?

[Гость]

Ровно 2 раза? Или как минимум 2 раза?

Ровно 2 раза

[Fraddy]

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
вот так вроде... хоть и поздно=) но может кому понадобицо..

Сообщение отредактировано: Fraddy - 19.11.2007 19:19