добрый вечер

помогите разобраться со следующей задачей

значит есть массив значениями которого являются числовые значения,
пример
       Массив = новый массив();
   массив.Добавить(1);
   массив.Добавить(2);
   массив.Добавить(3);
   массив.Добавить(4);
   массив.Добавить(5);
   массив.Добавить(6);
   массив.Добавить(8);
   массив.Добавить(10);
Задача состоит в том чтобы сформировать строку из значении массива, при нашем примере получается таким образом 1-6;8;10
то есть если цифры чередуются как арифметическая прогрессия(АП) то берется значения первого и последнего значения АП как только происходит обрыв АП то ставится точка запятой и так дальше по циклу....

У той задачи даже и жизненная ценность есть?

конечно есть, если бы не бы не написал в два часа ночи

(0) Что-то подобное (немного сложнее) решают сейчас в школе на VB, только вот недавно школьнику помогал.. М-да.

ну значит я буду из ряда школьников,

(4) а в чем сложность? Ну идешь по-порядку, если следующее значение не соответствует, ставишь точку с запятой. Это же элементарно, действительно задача для 3-го класса.

(0) прибавляй к элементу массива 1, и сравнивай со следующим, если равно то последовательность не нарушена

На всякий случай пересортируй перед формированием

если не массив, а ТЗ - то можно запросом

предыдущиеЗначение = 0;
Для каждого Значение из Массив Цикл

 Если предыдущиеЗначение+1  <> Значение Тогда
       Массив.Добавить(";");
  КонецЕсли;
   предыдущиеЗначение = Значение;
КонецЦикла;

??

(9) этот вариант не подходит, пропушена важная часть если числовые значения повторяются то берется первое и последнее значение 1-8 а после ставиться точка запятая

Можно также допустить что данные находиться в ТЗ, (8)

НачалоПрогрессии = 0;

ПредыдущееЗначение = 0;
Для каждого Значение из Массив Цикл
  Если НачалоПрогрессии=0 Тогда
      НачалоПрогрессии = Значение;
      Продолжить();
  КонецЕсли;

  Если ПредыдущееЗначение+1  <> Значение Тогда
      Массив.Добавить(НачалоПрогрессии + "-" + ПредыдущееЗначение + ";");
      НачалоПрогрессии=0;
  КонецЕсли;
  ПредыдущееЗначение = Значение;
КонецЦикла;

Причем задачу можно усложнить,
например последовательность 1,2,4,5 будет некрасиво выглядеть:
"1-2;4;5"
в таком случае тоже должно быть: "1;2;4;5"

Результат запроса (13)

Индекс    Значение элемента    Тип элемента
0    "1-0;"    
1    "3-2;"    
2    "5-4;"    
3    "7-6;"

ЭлементовВМассиве = массив.Количество();
ПервыйЭлемент = ?(ЭлементовВМассиве = 0, 0, массив[0]);
Накопитель = Новый Структура("НижняяГраница, ВерхняяГраница, Результат", ПервыйЭлемент, ПервыйЭлемент, "");
Для Сч = 1 По ЭлементовВМассиве Цикл
   Если Сч = ЭлементовВМассиве ИЛИ Накопитель.ВерхняяГраница + 1 <> массив[Сч] Тогда
       Накопитель.Результат = Накопитель.Результат + ";" +
       ?(Накопитель.НижняяГраница = Накопитель.ВерхняяГраница, Накопитель.НижняяГраница, ""+Накопитель.НижняяГраница+"-"+Накопитель.ВерхняяГраница);
       Если Сч < ЭлементовВМассиве Тогда
           Накопитель.НижняяГраница = массив[Сч];
           Накопитель.ВерхняяГраница = массив[Сч];
       КонецЕсли;
   ИначеЕсли Сч < ЭлементовВМассиве Тогда
       Накопитель.ВерхняяГраница = массив[Сч];
   КонецЕсли;
КонецЦикла;
Накопитель.Результат = Сред(Накопитель.Результат, 2);
Сообщить(Накопитель.Результат);

(16)
результат 1;2;3;4;5;6;8;11

(15) с "продолжить()"  погорячился

НачалоПрогрессии = 0;

ПредыдущееЗначение = 0;
Для каждого Значение из Массив Цикл
  Если НачалоПрогрессии=0 Тогда
      НачалоПрогрессии = Значение;
  ИначеЕсли ПредыдущееЗначение+1  <> Значение Тогда
      Массив.Добавить(НачалоПрогрессии + "-" + ПредыдущееЗначение + ";");
      НачалоПрогрессии=0;
  КонецЕсли;
  ПредыдущееЗначение = Значение;
КонецЦикла;

(16) все сработало

(16) спасибо большое

всем участникам темы тоже спасибо за подсказки.....

не за подсказки, а за готовое решение