Числа = Новый Массив;
Числа.Добавить(1);
Числа.Добавить(2);
Числа.Добавить(3);
Числа.Добавить(4);

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