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

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

program RemoveDuplicates;

const
n = 10;

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

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

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

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

end;

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

end.