Например есть ряд чисел:
1, 2, 3, 4, 4, 4, 6, 7, 7, 8, 9 и т. д.
Как вычислить что не хватает числа 5?

СтрПоиска = "1, 2, 3, 4, 4, 4, 6, 7, 7, 8, 9";

чисел = 10;
НетЧисла = Ложь;

Для ы=0 по чисел цикл
    ЕстьЧисло = найти(СтрПоиска,ы);
    Если Не ЕстьЧисло Тогда
        Прервать;
        НетЧисла = Истина;
    КонецЕсли;
КонецЦикла;

отсортировать и перебрать.
Если ТекЧисло > ПрошЧисло + 1 Тогда
   Сообщить("Потеряли всё между " + ПрошЧисло + " и " + ТекЧисло);

Пусть массив отсортирован, тогда:

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

(0) шо, опять?

(1) Спасибо, вполне просто и годно)))

(4) Чего?)

(3) вариант в (1) по проще и вполне рабочий

(0) ИМХО запросом это можно сделать

(8) интересно было бы посмотреть