Процедура УдалитьПустыеЭлементы(МассивНоменклатуры) 
        Счетчик = 0; 
        КоличествоЭлементов = МассивНоменклатуры.Количество(); 
    Пока Счетчик < КоличествоЭлементов Цикл 
             Если МассивНоменклатуры [Счетчик].Пустая() Тогда 
                        МассивНоменклатуры.Удалить(Счетчик); 
                   КоличествоЭлементов = КоличествоЭлементов - 1; 
         Иначе 
                 Счетчик = Счетчик + 1; 
         КонецЕсли; 
       КонецЦикла; 
КонецПроцедуры