Числа = Новый Массив(5);
Числа[0] = 1;
Числа[1] = 2;
Числа[2] = 3;
Числа[3] = 4;
Числа[4] = 5;

Словарь = Новый Структура;
Словарь.Вставить("Четные", Новый Массив);
Словарь.Вставить("Нечетные", Новый Массив);

Для Каждого Число Из Числа Цикл
    Если Число % 2 = 1 Тогда
        Словарь["Нечетные"].Добавить(Число);
    Иначе
        Словарь["Четные"].Добавить(Число);
    КонецЕсли;
КонецЦикла;

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