Одномерный массив, паскаль

[Poma][a]

соглашусь.
с поправкой

На этом и порешим

[eoln]

"В массиве имеется одна пара одинаковых элементов"
Интересно, а в массиве (1, 1 ,1) одна пара одинаковых элементов? Или 3 пары? Или полторы?

[Serge_Bliznykov]

Сообщение от eoln

"В массиве имеется одна пара одинаковых элементов"
Интересно, а в массиве (1, 1 ,1) одна пара одинаковых элементов? Или 3 пары? Или полторы?

думаю, что:

else writeln('В массиве более двух одинаковых элементов.');