Я примерно такое делал через ИТЗ и его метод Группировать (пусть даже автору ИТЗ этот метод не нравится, а я от него балдею  )
в общем, если поймёшь что-нибудь, то держи:

Функция СформироватьДиапазонНомеров(Знач ТзИтзЗапрос
	, ИмяСтолбцаНачало="Начало" //имя колонки в выходной таблице, которая будет содержать первый номер серии
	, ИмяСтолбцаКонец="Конец"//имя колонки в выходной таблице, которая будет содержать последний номер серии
	, ИмяСтолбцаКоличество="Количество" //можно через зпт (суммируемые показатели)
	, ИмяСтолбцаНомер="Номер"//имя колонки вх. таблице по которым строится серии
	, ИмяСтобцаТипВид="Тип" //можно через зпт (колонки группировки)
	, ИмяКолонкиДопГруппировки="" //ПЕРВИЧНАЯ группировка, основное будет в тзПотомки
	)

	Перем КопияИТ;//:ИндексированнаяТаблица
	Перем спГруппировок;//:СписокЗначений
	итВых = СоздатьОбъект("ИндексированнаяТаблица");
	ВходнойТип = ТипЗначенияСтр(ТзИтзЗапрос);
	Если ВходнойТип="ИндексированнаяТаблица" Тогда
		итВых.Загрузить(ТзИтзЗапрос);
	ИначеЕсли ВходнойТип="Запрос" Тогда
		итВых.ЗагрузитьЗапрос(ТзИтзЗапрос,1,0);
	ИначеЕсли ВходнойТип="ТаблицаЗначений" Тогда
		итВых = ТзИтзЗапрос.Копия();
	Иначе
		Сообщить("Можно передавать только ТЗ, ИТЗ или Запрос","!");
		Возврат "";
	КонецЕсли;

	спГруппировок = СписокИзСтрокиСРазделителями(ИмяСтобцаТипВид); 	КолГруппировок=спГруппировок.РазмерСписка();

	ИмяИндекса=ИмяСтобцаТипВид+ИмяСтолбцаНомер; КолонкиИндекса="*"+СтрЗаменить(ИмяСтобцаТипВид, ",", ",*")+","+ИмяСтолбцаНомер;
	Попытка	итВых.УдалитьКолонку(ИмяСтолбцаНачало);
	Исключение	КонецПопытки;
	Попытка	итВых.УдалитьКолонку(ИмяСтолбцаКонец);
	Исключение	КонецПопытки;
	итВых.НоваяКолонка(ИмяСтолбцаНачало);
	итВых.НоваяКолонка(ИмяСтолбцаКонец);
	итВых.ДобавитьИндекс(ИмяИндекса, КолонкиИндекса);
	КопияИТ = итВых.Копия(1);

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

	ИндексГруппировки=ИмяСтолбцаНачало+ИмяСтолбцаКонец+СтрЗаменить(ИмяСтобцаТипВид, ",", "");
	стрДопГруппировка="";
	Если ПустаяСтрока(ИмяКолонкиДопГруппировки)=0 Тогда
		стрДопГруппировка=СтрЗаменить(ИмяСтобцаТипВид, ",", "")+":"+"*"+СтрЗаменить(ИмяКолонкиДопГруппировки, ",", ",*")+";";
	КонецЕсли;
	ИмяСтолбцаКонец+",*"+СтрЗаменить(ИмяСтобцаТипВид, ",", ",*")
					, ИмяСтолбцаКоличество, 1);

	//итВых.Показать();
	Возврат итВых;
КонецФункции 

Что-то типа такого (если критерий интервала - последовательно идущие по возрастанию целые числа)

Процедура ЗаполнитьИзСтроки(тзЧисла, Стр)
	сз = СоздатьОбъект("СписокЗначений");
	сз.ИзСтрокиСРазделителями(Стр);

	Для инд = 1 По сз.РазмерСписка() Цикл
		тзЧисла.НоваяСтрока();
		тзЧисла.Число = сз.ПолучитьЗначение(инд);
	КонецЦикла;
КонецПроцедуры

//*******************************************
Процедура Сформировать()

	Перем тзЧисла, тзИнтервалы;

	тзЧисла = СоздатьОбъект("ТаблицаЗначений");
	тзЧисла.НоваяКолонка("Число", "Число", 10, 0);

	тзИнтервалы = СоздатьОбъект("ТаблицаЗначений");
	тзИнтервалы.НоваяКолонка("НачИнтервала", "Число", 10, 0);
	тзИнтервалы.НоваяКолонка("КонИнтервала", "Число", 10, 0);

	// загоняем числа в таблицу
	ЗаполнитьИзСтроки(тзЧисла, "1,2,3,4,6,7,8,9,11,14,15,16,17,19,30,41,1,2");

	КвоСтрок = тзЧисла.КоличествоСтрок();
	ПредыдущееЧисло = 0;
	НачИнтервала = 0;
	тзЧисла.ВыбратьСтроки();
	Пока тзЧисла.ПолучитьСтроку() = 1 Цикл
		Если тзЧисла.НомерСтроки = 1 Тогда
			НачИнтервала = тзЧисла.Число;
		ИначеЕсли тзЧисла.НомерСтроки = КвоСтрок Тогда
			тзИнтервалы.НоваяСтрока();
			тзИнтервалы.НачИнтервала = НачИнтервала;
			тзИнтервалы.КонИнтервала = тзЧисла.Число;
		Иначе
			Если (ПредыдущееЧисло+1) <> тзЧисла.Число Тогда
				тзИнтервалы.НоваяСтрока();
				тзИнтервалы.НачИнтервала = НачИнтервала;
				тзИнтервалы.КонИнтервала = ПредыдущееЧисло;

				НачИнтервала = тзЧисла.Число;
			КонецЕсли;
		КонецЕсли;

		ПредыдущееЧисло = тзЧисла.Число;
	КонецЦикла;

	тзИнтервалы.ВыбратьСтроки();
	Пока тзИнтервалы.ПолучитьСтроку() = 1 Цикл
		Если тзИнтервалы.НачИнтервала = тзИнтервалы.КонИнтервала Тогда
			Сообщить(""+тзИнтервалы.НачИнтервала);
		Иначе
			Сообщить(""+тзИнтервалы.НачИнтервала+"-"+тзИнтервалы.КонИнтервала);
		КонецЕсли;
	КонецЦикла;
КонецПроцедуры
 

Thor

Спасибо, то что надо

Ну и я до кучи )
Алгоритм тот же, перебор


Процедура ЗаполнитьТаблицуПростыхЧисел()
     НачЗначения.НоваяКолонка("Номер","Число");
     НачЗначения.НоваяСтрока();
     НачЗначения.Номер = 1;
     
     НачЗначения.НоваяСтрока();
     НачЗначения.Номер = 2;
     
     НачЗначения.НоваяСтрока();
     НачЗначения.Номер = 3;
     
     НачЗначения.НоваяСтрока();
     НачЗначения.Номер = 4;
     
     НачЗначения.НоваяСтрока();
     НачЗначения.Номер = 6;
     
     НачЗначения.НоваяСтрока();
     НачЗначения.Номер = 7;
     
     НачЗначения.НоваяСтрока();
     НачЗначения.Номер = 11;
     
     НачЗначения.НоваяСтрока();
     НачЗначения.Номер = 13;
     
     НачЗначения.НоваяСтрока();
     НачЗначения.Номер = 14;
     
     НачЗначения.НоваяСтрока();
     НачЗначения.Номер = 17;
     
     Диапазоны.НоваяКолонка("ДиапазонСтарт","Число");
     Диапазоны.НоваяКолонка("ДиапазонСтоп","Число");
КонецПроцедуры


Процедура Сформировать()
     Перем Итератор;
     ЗаполнитьТаблицуПростыхЧисел(); // первоначальное
     Итератор=0;
     НачЗначения.Сортировать("Номер");
     НачЗначения.ВыбратьСтроки();
     Пока НачЗначения.ПолучитьСтроку() = 1 Цикл
           Если Не(Итератор=НачЗначения.Номер) Тогда
                 Диапазоны.НоваяСтрока();
                 Диапазоны.ДиапазонСтарт= НачЗначения.Номер;
                 Итератор = НачЗначения.Номер;
           КонецЕсли;
           Диапазоны.ДиапазонСтоп = НачЗначения.Номер;
           Итератор = Итератор+1;
     КонецЦикла;
КонецПроцедуры

В принципе, в дополнение в линейному поиску можно применить бинарный поиск, ибо массив сортированный.
Правда, реализация будет явно сложнее, чем у победителя соревнований, а по эффективности - бабушка надвое сказала (зависит от распределения данных).

По затратам (условно):

Линейный поиск: worst = O(n); best = O(n)
Бинарный поиск: worst < O(n*log(n)); best = O(log(n))

Т.е. если массив не состоит из нескольких длинных цепочек, заморачиваться не стоит.