Как найти количество уникальных элементов в массиве

program mytask;

uses CRT;     //!!! Подключить этот модуль

//****************************************************************
// КОНСТАНТЫ
//****************************************************************
const
  MAX_A = 16;

//****************************************************************
// ТИПЫ ДАННЫХ
//****************************************************************
type TMas = array[1..MAX_A] of byte;

//****************************************************************
// ГЛОБАЛЬНЫЕ ПЕРЕМЕННЫЕ
//****************************************************************
var
  i         : byte;        //Индекс
  UniqueNum : byte = 0;    //Количество уникальных элементов
  A         : TMas;        //Массив чисел
  B         : TMas;        //Массив индексов

//****************************************************************
// ФУНКЦИИ И ПРОЦЕДУРЫ
//****************************************************************

//****************************************************************
// Определяет количество уникальных элементов в массиве
// ВХОД:  В - глобальный массив индексов
// ВЫХОД: UniqueNum - глобальная переменная - количество
// уникальных элементов
//****************************************************************
procedure GetUnique;
var i : byte;
begin
  UniqueNum := 0;
  for i := 1 to MAX_A do
    if B[i] = 0 then Inc(UniqueNum);
end;

//****************************************************************
// Проверяет уникальность элемента в массиве
// ВХОД:  А и В - глобальные массивы
//        N - значение элемента
//        Ind - индекс элемента
//****************************************************************
procedure CheckUnique(N, Ind : byte);
var i   : byte;
begin
  for i := 1 to MAX_A do
    //Если найдено совпадение
    if (A[i] = N) and (i <> Ind) then B[i] := i;
end;

//****************************************************************
// ОСНОВНАЯ ПРОГРАММА
//****************************************************************
begin
  Randomize;                //Запустить генератор случайных чисел

  //Создать массив и вывести на экран
  for i := 1 to MAX_A do
    begin
      A[i] := Random(50);
      B[i] := 0;
      Write(A[i], ' ');
    end;

  //Найти одинаковые элементы
  for i := 1 to MAX_A do
    CheckUnique(A[i], i);

  WriteLn;
  GetUnique;  //Определить число уникальных элементов

  //Вывести массив с обнаруженными совпадениями
  for i := 1 to MAX_A do
    begin
      if B[i] > 0 then TextColor(Yellow)
      else TextColor(LightGray);
      Write(A[i], ' ');
    end;

  TextColor(LightGray);

  //Вывести решение на экран
  WriteLn(#10#13'Problem solution:');
  WriteLn('  Elements in the array: ', MAX_A);
  WriteLn('  Of them unique:        ', UniqueNum);

  WriteLn('The end. Press ENTER...');
  ReadLn;
end.

#include <cstdlib>
#include <iostream>
#include <ctime>      //!!! Подключить, если будет ругаться на srand

//****************************************************************
// КОНСТАНТЫ
//****************************************************************
const int MAX_A = 16; 

//****************************************************************
// ТИПЫ ДАННЫХ
//****************************************************************
typedef short int TMas[MAX_A]; 

using namespace std;

//****************************************************************
// ГЛОБАЛЬНЫЕ ПЕРЕМЕННЫЕ
//****************************************************************
short int i;             //Индекс
short int UniqueNum = 0; //Количество уникальных элементов
TMas A;                  //Массив 
TMas B;                  //Массив 

//****************************************************************
// ФУНКЦИИ И ПРОЦЕДУРЫ
//****************************************************************

//****************************************************************
// Определяет количество уникальных элементов в массиве
// ВХОД:  В - глобальный массив индексов
// ВЫХОД: UniqueNum - глобальная переменная - количество 
// уникальных элементов
//****************************************************************
void GetUnique()
{
short int i;
  UniqueNum = 0;
  for (i = 0; i < MAX_A; i++)
    if (-1 == B[i]) UniqueNum++;
}

//****************************************************************
// Проверяет уникальность элемента в массиве
// ВХОД:  А и В - глобальные массивы
//        N - значение элемента
//        Ind - индекс элемента
//****************************************************************
void CheckUnique(short int N, short int Ind)
{
short int i;
  for (i = 0; i < MAX_A; i++)
    //Если найдено совпадение
    if ((A[i] == N) && (i != Ind)) B[i] = i;
}

//****************************************************************
// ОСНОВНАЯ ПРОГРАММА
//****************************************************************
int main(int argc, char *argv[])
{
  srand(time(0));         //Запустить генератор случайных чисел

  //Создать массив и вывести на экран
  for(i = 0; i < MAX_A; i++)
  {
    A[i] = (rand() % 50);
    B[i] = -1;
    cout << int(A[i]) << " ";
  }

  //Найти одинаковые элементы
  for(i = 0; i < MAX_A; i++)
    CheckUnique(A[i], i);

  cout << endl;
  GetUnique();  //Определить число уникальных элементов
  
  //Вывести массив с обнаруженными совпадениями
  for(i = 0; i < MAX_A; i++)
  {
    if (B[i] > -1) cout << "*";
    cout << A[i] << " ";
  }

  //Вывести решение на экран
  cout << endl << "Problem solution:" << endl;
  cout << "  Elements in the array: " << MAX_A << endl;
  cout << "  Of them unique:        " << UniqueNum << endl;
  
  system("PAUSE");
  return EXIT_SUCCESS;
}