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