Числа1 = Новый Массив;
Числа1.Добавить(1);
Числа1.Добавить(3);
Числа1.Добавить(2);
Числа1.Добавить(1);
Числа1.Добавить(3);
//Числа1 = [1, 3, 2, 1, 3]
Сообщить("Числа1 = [" +
    СтрСоединить(Числа1, ", ") + "]");

Числа2 = Новый Массив;

//Первый вариант
Соответствие = Новый Соответствие;
Для Каждого Число Из Числа1 Цикл
    Соответствие.Вставить(Число);
КонецЦикла;
//Порядок обхода словаря не определён,
//у вас он может оказаться другим
Для Каждого Элемент Из Соответствие Цикл
    Числа2.Добавить(Элемент.Ключ);
КонецЦикла;
//Числа2 = [1, 3, 2]
Сообщить("Числа2 = [" +
    СтрСоединить(Числа2, ", ") + "]");

Числа2.Очистить();

//Второй вариант
Для Каждого Число Из Числа1 Цикл
    Если Числа2.Найти(Число) =
        Неопределено Тогда
        Числа2.Добавить(Число);
    КонецЕсли;
КонецЦикла;
//Числа2 = [1, 3, 2]
Сообщить("Числа2 = [" +
    СтрСоединить(Числа2, ", ") + "]");