Функция ПересечениеСписков(м1,м2)
Тз = Новый ТаблицаЗначений();
Для каждого Эл из М1 Цикл
ТЗ.Добавить().Элемент=Эл.Значение;
КонецЦикла;
Для каждого Эл из М2 Цикл
ТЗ.Добавить().Элемент=Эл.Значение;
КонецЦикла;
ТЗ.Колонки.Добавить("Флаг");
ТЗ.ЗаполнитьЗначения(1,"Флаг");
ТЗ.Свернуть("Элемент","Флаг");
Совпадающие = Новый СписокЗначений;
Для каждого Строка из ТЗ.НайтиСтроки(Новый Структура("Флаг",2)) Цикл
Совпадающие.Добавить(Строка.Элемент);
КонецЦикла;
Возврат Совпадающие
КонецФункции
Заголовок публикации состоит из слитных слов. Разделите их пробелами, если это не общепринятое название и не имя собственное.
Определение пересечения интервалов в кольце
Определить элементарные интервалы, образующиеся при пересечении всех исходных интервалов