Поиск произведения положительных чётных чисел в последовательности

&НаКлиенте
Процедура ВычислитьВыражение(Команда)
    // Очищаем данные на случай повторного использования процедуры 
    ОчиститьСообщения();
    Объект.Результат = 0;    
    // Создаем пустой массив для сбора данных
    МассивЗначений = Новый Массив;
    // Обходим табличную часть документа и добавляем значения реквизита в массив
    Для Каждого СтрокаТЧ Из Объект.Числа Цикл
        // Добавляем значение поля "ЗначениеЧисла" из каждой строки
        МассивЗначений.Добавить(СтрокаТЧ.Число);
    КонецЦикла;
    // Теперь у нас есть массив, заполненный данными из БД
    // Его структура полностью совпадает с тем примером, который был выше
    // Вызываем вспомогательную функцию:
    РезультатРасчета = НайтиПроизведениеПоложительныхЧетных(МассивЗначений)   
    // Проверяем результат и выполняем соответствующие действия
    Если РезультатРасчета <> Неопределено Тогда
        Объект.Результат = РезультатРасчета; 
    Иначе
        Сообщить("В документе нет положительных четных чисел.");
    КонецЕсли;     
КонецПроцедуры

&НаКлиенте
Функция НайтиПроизведениеПоложительныхЧетных(МассивЧисел) 
    // Инициализируем результат единицей. 
    // Это нейтральный элемент для операции умножения: любое число * 1 = само число.
    Результат = 1; 
    // Флаг нужен для корректной обработки в случае отсутствия подходящих чисел
    Найдено = Ложь;
    // Проходим циклом по массиву чисел 
    Для Каждого ТекЭлемент Из МассивЧисел Цикл     
        // Проверяем оба условия одновременно
        Если ТекЭлемент > 0 И ТекЭлемент % 2 = 0 Тогда
            Результат = Результат * ТекЭлемент;
            Найдено = Истина;
        КонецЕсли;     
    КонецЦикла;   
    // Если ни одно число не подошло под условия, возвращаем пустой результат 
    Если НЕ Найдено Тогда
        Возврат Неопределено;
    КонецЕсли;
    // Если число подошло под условия, возвращаем его    
    Возврат Результат;  
КонецФункции