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

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

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

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

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

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

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

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

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

			Иначе 

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

			КонецЕсли; 

		КонецЦикла; 

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

	КонецЦикла; 

Возврат Массив; 

КонецФункции