Поиск повторяюшихся элементов в последовательности

[DneprSerg]

Как можно решить задачу на T.Pascal

Дана последовательность целых чисел (в виде массива(одномерного))
Определить колличество повторящихся элементов в этом массиве

Пример
> 1 2 3 1 1 7 3 7 (последовательность)
> 5 (резутат,-количество повторяюшихся элементов в данной последовательности)

[photon]

проще всего, наверное, отсортировать и, пройдя по последовательности, посмотреть, сколько раз меняется значение.

[Someone]

Судя по примеру, имеется в виду количество (неупорядоченных) пар равных элементов.

[photon]

$1-1-1$ - три пары
$3-3$ - одна пара
$7-7$ - одна пара

и тогда, упорядочив массив, и подсчитав число одинаковых элементов, несложно посчитать число пар

[Фома]

Что Вам не понятно? Алгоритм как это сделать или как написать код его реализующий? Или то и другое?

Вот код на С++:

int calc(int* a, int n)
{
    int res = 0;
    for(int i = 0; i < n; i++)
    {
        for(int j = i + 1; j < n; j++) if(a[i] == a[j]) res++;
    }
    return res;
}