В начало

Удаление повторяющиеся элементов массива

 

Процедура УдалитьПовторяющиесяЭлементы (Массив)

            ТекущийИндекс = 0;

            ВсегоЭлементов = Массив.Количество ();

            Пока ТекущийИндекс < ВсегоЭлементов Цикл

                        Индекс2 = ТекущийИндекс + 1;

                        Пока Индекс2 < ВсегоЭлементов Цикл

                                   Если Массив [Индекс2] = Массив [ТекущийИндекс] Тогда

                                               Массив.Удалить (Индекс2);

                                               ВсегоЭлементов = ВсегоЭлементов - 1;

                                   Иначе

                                               Индекс2 = Индекс2 + 1;

                                   КонецЕсли;

                        КонецЦикла;

                        ТекущийИндекс = ТекущийИндекс + 1;

            КонецЦикла;

КонецПроцедуры