Найти количество различных элементов в массиве.
    
    МассивЧиселВСтроку="";
    КоличествоСхожихЭлементов=0;
    а=0;
        
    МассивЧисел=Новый Массив(20);
    ГСЧ=Новый ГенераторСлучайныхЧисел(20);
    
    Для Счетчик=0 По 19 Цикл
        
        СлучайноеЧисло=ГСЧ.СлучайноеЧисло(1,40);
        МассивЧисел[Счетчик]=СлучайноеЧисло;
        МассивЧиселВСтроку=МассивЧиселВСтроку+МассивЧисел[Счетчик]+" ";
        
    КонецЦикла;
    
    Сообщить("Массив Чисел: "+МассивЧиселВСтроку);
    
    Для Счетчик=0 По 19 Цикл
                
        Для СчетчикПроверкиКаждогоЭлемента=0 По 19 Цикл
            
            Если Счетчик<>СчетчикПроверкиКаждогоЭлемента И МассивЧисел[Счетчик]=МассивЧисел[СчетчикПроверкиКаждогоЭлемента] Тогда
                КоличествоСхожихЭлементов=КоличествоСхожихЭлементов+1;      
            КонецЕсли;                            
            
        КонецЦикла;
        
    КонецЦикла;
    
    Сообщить("Количество схожих элементов: "+КоличествоСхожихЭлементов);
    Сообщить("Количество различных элементов: "+(20-КоличествоСхожихЭлементов));

Неправильно считает цикл когда в массиве схожие элементы 3, 4, 5,. . . . .

КолРазличных = 0;
Соответствие = Новый Соответсвие;
Для Счетчик=0 По 19 Цикл
        Число = МассивЧисел[Счетчик];
        Если Соответсвие[Число] = Неопределено Тогда
            КолРазличных = КолРазличных + 1;
            Соответсвие[Число] = КолРазличных;
        КонецЕсли;
КонецЦикла;
Сообщить(КолРазличных);

Соответствие = Новый Соответсвие;
Для Счетчик=0 По 19 Цикл
    Соответсвие[Число] = 1;
КонецЦикла;
Сообщить(Соответствие.Количество());

Соответствие - это массив да?

(4) Нет
Массив да — это

МассивДа = Новый Массив;
МассивДа.Добавить(Истина);
МассивДа.Добавить(Истина);
МассивДа.Добавить(Истина);


(3) Так и знал, что нужно в СП заглянуть)

числа = Новый Массив;
...
Ключи = Новый Соответствие;
Для Каждого э Из числа Цикл
    Ключи[э] = 1;
КонецЦикла;
Сообщить(Ключи.Количество());

(2) Выдает такую ошибку

{Форма.Форма.Форма(105,15)}: Переменная не определена (Соответсвие)
            Если <<?>>Соответсвие[Число] = Неопределено Тогда (Проверка: Тонкий клиент)
{Форма.Форма.Форма(107,14)}: Переменная не определена (Соответсвие)
                <<?>>Соответсвие[Число] = КолРазличных; (Проверка: Тонкий клиент)

Вот так точно будет
числа = Новый Массив;
Ключи = Новый Соответствие;
Для Каждого э Из числа Цикл
    Ключи.Вставить(э, 1);
КонецЦикла;
Сообщить(Ключи.Количество());

вставлю 5 копеек :)

ТЗ = Новый ТаблицаЗначений;
ТЗ.Колонки.Добавить("Числа");
ТЗ.ЗагрузитьКолонку(МассивЧисел, "Числа");
ТЗ.Свернуть("Числа",);
сообщить("разных "+ТЗ.КоличествоСтрок());

(8) Один безграмотный, другой слепой