+ Пронумеровать + тест

src/Итератор/Ext/ObjectModule.bsl

@@ -733,3 +733,33 @@
     Результат = 1 = ЭтотОбъект.Клонировать().Фильтр("Условие = Элемент").Количество();
     Возврат Результат;
 КонецФункции
+
+Функция Пронумеровать(Знач ПервыйНомер=0) Экспорт
+    Если ЭтотОбъект.Пустой() Тогда
+        Возврат ЭтотОбъект;
+    КонецЕсли;
+    
+    // создание пары Ключ => Значение
+    Набор = Новый Соответствие;
+    КлючиПоПорядку = Новый Массив;
+    
+    ЭтотОбъект.СброситьПозицию();
+    Счетчик = ПервыйНомер;
+    Пока ЭтотОбъект.Следующий() Цикл
+        Набор.Вставить(Счетчик, ЭтотОбъект.ТекущийЭлемент());
+        КлючиПоПорядку.Добавить(Счетчик);
+        
+        Счетчик = 1 + Счетчик;
+    КонецЦикла;
+    ЭтотОбъект.СброситьПозицию();
+    
+    // заполнение новой коллекции
+    ЭтотОбъект.Начать();
+    ЭтотОбъект.Вставить(КлючиПоПорядку.ВГраница(), Неопределено);
+    Для Каждого ТекПара Из Набор Цикл
+        Индекс = КлючиПоПорядку.Найти(ТекПара.Ключ);
+        ЭтотОбъект.Установить(Индекс, ТекПара);
+    КонецЦикла;
+    
+    Возврат ЭтотОбъект;
+КонецФункции