Процедура УдалитьПовторяющиесяЭлементы(Массив) 
     ТекущийИндекс = 0; 
  ВсегоЭлементов = Массив.Количество(); 
     Пока ТекущийИндекс < ВсегоЭлементов Цикл 
            Индекс2 = ТекущийИндекс + 1; 
           Пока Индекс2 < ВсегоЭлементов Цикл 
                  Если Массив[Индекс2] = Массив[ТекущийИндекс] Тогда 
                              Массив.Удалить(Индекс2); 
                               ВсегоЭлементов = ВсегоЭлементов - 1; 
                   Иначе 
                         Индекс2 = Индекс2 + 1; 
                 КонецЕсли; 
               КонецЦикла; 
              ТекущийИндекс = ТекущийИндекс + 1; 
     КонецЦикла; 
КонецПроцедуры