Удаление повторяющихся чисел в массиве - Pascal AB
Удалить в массиве все числа которые повторяются более двух раз

Предыдущий
вопрос Следующий
вопрос

program RemoveDuplicates;

cons
n = 10;

va
arr: array[1..n] of integer
count: array of integer
i, j, k, duplicates: integer;

begi
// вводим элементы массив
writeln('Введите элементы массива:')
for i := 1 to n d
begi
write('arr[', i, '] = ')
readln(arr[i])
end;

// инициализируем массив coun
SetLength(count, n)
for i := 1 to n d
count[i] := 1;

// находим повторяющиеся элемент
for i := 1 to n d
begi
duplicates := 0
for j := i+1 to n d
begi
if (arr[i] = arr[j]) and (count[j] < 2) the
begi
duplicates := duplicates + 1
count[j] := count[j] + 1
end
end;

end;

// выводим массив после удаления повторяющихся элементо
writeln('Массив после удаления повторяющихся элементов:')
for i := 1 to n d
begi
if count[i] > 0 the
writeln('arr[', i, '] = ', arr[i])
end;

end.