Есть неупорядоченный массив из различных чисел от 0 до х, необходимо за один цикл найти недостающее число.
Кто может на 8ке быстро код написать?

различных целых чисел

могу в запросе

с кем ЗП поделишься, тот и напишет.

(0) У самого ноль вариантов?

не, надо именно в цикле. В запросе или через функции и я могу.

Массив.Найти (Array.Find)
Массив (Array)
Найти (Find)
Синтаксис:
Найти(<Значение>)
Параметры:
<Значение> (необязательный)
Тип: Произвольный. Искомое значение.
Возвращаемое значение:
Тип: Число, Неопределено. Если элемент найден, возвращается его порядковый номер. Если элемент не найден, возвращается Неопределено.
Описание:
Выполняет поиск элемента в массиве.
Возможен обмен с сервером. Сериализуется.

(4)
Ну я пока над другими работаю, чето это задачка застряла. Ну за час решил бы и сам наверно, просто срочно надо.

Сч = 0;
Пока Массив.Найти(Сч) <> Неопределено Цикл Сч = Сч + 1; КонецЦикла;
Сообщить(Сч)

если
a[i] - a[i-1] > 1
так что ли?

ПолнаяСумма = Х*(Х+1)/2;
НеполнаяСумма = 0;
Для каждого Эл из Массив Цикл
 НеполнаяСумма = НеполнаяСумма + Эл;
КонецЦикла;
Пропущено = ПолнаяСумма - НеполнаяСумма ;

(9) а, неупорядоченный

а что значит "недостающее"?

0 5 8 80

какое число тут недостающее?

(10) это что?

(13) Думаю, ТС хочет найти 1,2,3,4,6,7,9,10 и т.д.

(12) перевожу автора: есть массив целых от 0 до Х, одно число из него удалали, а оставшиеся перемешали, найти удаленное число, зная Х

(15) в том-то и дело, что непонятно, чего хочет ТС

(13) +100 или там еще последовательность надо найти. -1 -50 0 25 6 какое недостающие?

(14) решение задачи ))

(19) которую ты сам придумал? ;-)

(20) нет)) эта известная задача, постоянно кочует по собеседованиям

(16) при такой формулировке не найдёшь

пусть Х = 100

был массив  0 9 15 67 80

я удалил отсюда 9

ну-ка, как ты его вычислишь?

(21) тогда давай корректное её условие

(21) Это же из Вирта, вроде? :-)

наверное, где-то в условии должно фигурировать слово "непрерывная", не?

(10)
чето не совсем понятно

(26) корректное условие задачи будет? или ветку для телепатов завёл?

(22)
я думаю, что поставновщиу подразумевает, что числа шли в последовательности типа 1,2,3,4,5. потом удалили например 4 и перемешали. Как найти 4.

-3,-2,-1,0,1  (10) решит?

(27)
ну вот как сформулирована, так и выложил, предположение в 28

итак, еще версия: есть массив целых от 0 до Х (каждое встречается ровно один раз!), одно число из него удалили, а оставшиеся перемешали, найти удаленное число, зная Х
кстати в (0) вполне корректно

(26) непонятно - значит не твое
сначала без цикла находим сумму всех чисел без удаленного, потом циклом суммируем оставшиеся
удаленное будет разницей между ними

(31) натуральных чисел или PI допускается?

(29) В условии от 0 до Х.. Вряд ли имеется в виду отрицательный Х. Скорее вмего имеется в виду натуральный ряд.
Имхо, самое красивое решение в (8)..

(10) +  Х  = Массив.Количество()+1;

(33) ты видишь в (31) есть слово "целых"? я вижу

(26)
Сумма арифметической прогрессии

(35) метод Найти сам по себе реализован через цикл

(38) нет, там с помощью духа нуралиева ищется!

(39) потому признайте, что (10) круче ))

А теперь понял, (10) похоже на правду, в нескольких вариантах сработало.

(40) (35) + (10) самое оно

(40) применять мозги - всегда круче...

(40) ну, никто не спорит, что если ты помнишь формулу арифметической последовательности, то ты крут!

(34) Перед этим еще массив отсортировать надо...

*суммы

(45) перед (8) сортировать не надо

(44) да она мне снится по ночам ))

Хотя не, в этом случае необязательно

детская задачка.
сумма чисел от минимума массива до максимума минус сумма чисел массива = недостающее число.
но ТС неверно написал задачу, оттого и нафлудили :)

(44) вывести можно.

(50) я тут несколько раз корректно формулировал математические задачи - флудить, однако, никому это не мешало ))

Если число всего одно, то можно решить вот так:

Ф=0;
З=0;
Для сч=0 По Х Цикл
Ф=Ф+Массив[сч];
З=З+сч;
КонецЦикла;
НедостающееЧисло = З-Ф;

(40) можно ещё круче

(53) А ну да, в (10) уже было, там более правильно чем в 53

(53) да, примерно так. только слишком много переменных

(53) А кто сказал, что диапазон от 0 до Х ?

(57) ТС в (0) . Нет?


НашеЧисло=Х;
   Для i=0 по Х-1 Цикл
       НашеЧисло=НашеЧисло+i-Мас[i];
   КонецЦикла;


// оптимизировал (10) на 2 строки ;-))
Игрек = Х*(Х+1)/2;
Для каждого Эл из Массив Цикл
 Игрек = Игрек - Эл;
КонецЦикла;
// В Игрек - искомое значение

(58) А, ну тогда да... Я просто привык решать задачки в общем виде

(10)(53)(60), а если несколько пропущено, тогда ПолнаяСумма - НеполнаяСумма может и присутствовать в последовательности, т.к. это сумма нескольких пропущенных чмсел

(0)В каком классе арифметическую последовательность проходят?

(0)В хоменет что ль на работу устраиваешься?

(62) Если будет пропущено несколько - это будет другая история и другое решение

(63) в 7 классе

(40) Ваш метод не работает для отрицательных чисел.

(67) в условии нет отриц.чисел

(68) Где в условии сказано что x > 0 ?

(68) в условии есть [массив из различных чисел]

(67) сколько же оленеводов у нас в тайге еще не учтенных
ну прости уж ))

(69) что такое от 0 до -2 ?

(70) а, то про то, что не указано явно, что х>0?

(67) Работает

+(72) даже циклы так не работают:

Для й=0 по -2 Цикл

(49) ПолнаяСумма=(МинЧисло+МаксЧисло)*КоличествоЧисел/2
КоличествоЧисел - на единицу больше размера массива.
минимум, максимум и реальная сумма считаются в цикле запросто

(72) последовательность убывающих целых чисел, например

я в (31) сформулировал более строго условие

+(74) Не работает, если вы последовательность от 0 дло -10 (уже криво) понимаете как содержащую положительные числа

(77) арифметическая прогрессия с отрицательным шагом

(77) не бывает интервала (0;-2)

(75) причем тут массив чисел и вот эта строчка :
Для й=0 по -2 Цикл

она к чему тут вообще?)

(81) интервал - это уже вещественные числа. тебя не в ту степь понесло

речь за последовательность, а не интервал

(83) да какая разница то? ну рассмотри только на целых

а последовательность может быть любая, в принципе
например,   7  10  -1  pi/2  i

(85) большая

(82) не при чем!
Его метод работает как для 0...10 так и для -10...0

в (67) поклеп!

(88) 0 -1 -2  Пропущено -1
ПолнаяСумма = -2 * (-1)/2 = 1
Сумма элементов = -2
Полная - Неполная = 1 - - 2= 3

и где ето работает?

Ну довернуть формулу ПолнаяСумма = Х*(Х+1)/2*?(X<0,-1,1);
раз уж из пальца высосали отрицательные числа

Метод корректен

(90) Да почему из пальца, какое ТЗ дали, от того и отталкиваемся

ептель, в условии нет никакой арифметической последовательности, есть массив чисел, значения лежат на от резке от 0 до Х, так вот когда Х<0 условие просто некорректно

В список значений преобразовать можно?)))

(93)
массив = посл-ть
массив != интервал

+(95) конечная последовательность

(93) Да что вы заладили некорректно, да некорректно. Есть условие массив чисел, где там слово про отрезок или последовательность есть ?

Дососали условие из пальца )

(10)
"ПолнаяСумма = Х*(Х+1)/2;
НеполнаяСумма = 0;
Для каждого Эл из Массив Цикл
 НеполнаяСумма = НеполнаяСумма + Эл;
КонецЦикла;
Пропущено = ПолнаяСумма - НеполнаяСумма ;"
Я когда-то ходил на собеседование в Аббии - там одна такая задача была. Я её именно так и решил (По образованию бухгалтер).
Но меня в Аббии кадровик всё равно не взял.

(89) см (76).

(99) так я не спорю что у вас верная формула, просто жду когда (10) признает, что он не прав )

дано:

есть массив (конечная последовательность), состоящая из целых неотрицательных чисел a размерности n

известно, что для i>1
a[i] = a[i-1] + a[i-2]
a[0], a[1] - неизвестны

из данного массива удалили один элемент (известно лишь, что это не a[0] и не a[1]) и перемешали оставшиеся элементы произвольным образом

вопрос: возможно ли в одном цикле выяснить, какое число (элемент) было удалено? приведите алгоритм

В (8) верное решение если значения натуральные и не отрицательные.

(101) а[1] могли удалить. Не могли - последний

ептыть, ну не бывает фразы "массив из различных чисел от 0 до -5", ну бред это!

(103) это почему?

(95) вообще говоря
массив != посл-ть

если уж быть таким...

(103) а, в смысле, усложняешь? :)

(106) см. поправку

(105) потому, что удалить могли только из середины последовательности. Иначе задача имеет два решения - предудущий член перед минимальным, и последующий после максимального

(100) он тоже прав, для более строгих условий

(104) Вы наверное путаете индексы массива и значения в нем. В случае массив чисел от 0 до -5 говорит о порядке расположения элементов в массиве, т. е. [0] элемент = 0, 5 элемент равен -5.

(104) фраза "массив из чисел" - тоже не ахти...

(100) Вот опять, есть ТЗ. Под ТЗ (0) его алгоритм не подходит, и не важны всякие если бы да кабы.

(111) пипец, я в шоке

(112) вы о чем??)

(109) задача в моей формулировке имеет одно решение, насколько я вижу.

(101) a[i] = a[i-1] + a[i-2]
это последовательность Фибоначи?

(116) если массив имеет числа 2,3,4,5 - "пропущено" либо ничего (а по условиям задачи такое не допускается), либо 1 или 6

(118) не может быть такого массива по условию

(115) фраза кривая. массив, он сам по себе массив. он может быть заполнен числами. Но не "состоять из..."

Когда математик говорит, что число Х раположено между А и Б, он подразумевает это фразой неравенство
А<=Х<=Б

давайте подумаем что такое массив? ))

(117) нет, Фибоначчи  :)

(123) точно))

(119) о чем я тебе и говорю - а[1] может быть пропущен, если у тебя  индексы начинаются с 0, не могут - а[0] и а[n]

(124) только с более общей формулировкой

программист - человек, с пеной у рта доказывающий неизвестно что неизвестно кому неизвестно зачем...

(125)  3 5 8 11 19 30

выкинули 30. в чём затык?

(121) Это вы так думаете )
(115) Фраза кривая для вас или вы же взяли определение из справочника?)
Массив — упорядоченный набор данных, для хранения данных одного типа. Посути состоит из отдельных однотипных элементов. Поэтому фраза "массив из чисел" вполне корректна (хотя я ее даже не употреблял нигде, но раз придраться больше уже  не к чему, жду когда придеретесь к запятым).

(129) ее ненавижо употребило...

(129) режет слух. числовой массив,строковый массив - нормально. массив, заполненый... тоже... а вот "состоящий из..." - когда работал с массивами "на низком уровне" - фраза "не катит"

(129) да, я так думаю

Для невменяемых специально в (10) первую строчку читать так:

ПолнаяСумма = Х*(Массив.Количество()+1)/2;

(0) на SQL поди есть задачки ??

Может загрузить в СписокЗначений, отсортировать, найти мин. и макс. значения и найти недостающие значения?

СпЗнач = Новый СписокЗначений;
СпЗнач.ЗагрузитьЗначения(Массив);
СпЗнач.СортироватьПоЗначению();
Для i=СпЗнач[0] по СпЗнач[СпЗнач.Количество()-1] Цикл
  Если СпЗнач.НайтиПоЗначению(i)=Неопределено Тогда
      Сообщить("Отсутствует: "+i);
  КонецЕсли;
КонецЦикла;

(101) воспользуемся формулой a[0]+a[1]+...+a[n]=a[n+2]-a[1]=a[n]+a[n-1]-a[1]
в цикле за один проход находим величины:
1. сумму массива
2. a[1]
3. а[n]
4. a[n-1]
далее находим a[0]+a[1]+...+a[n] = a[n]+a[n-1]-a[1]
ну и дальше из полученного вычитаем сумму массива

можно тупо в лоб решать
и = истина;
сч1 = 1;
сч2 = 1;
пока и цикл
если сч1 < n  тогда
...  здесь сортировка
сч1 = сч1 + 1;
конецесли;
если сч2 < n тогда
... здесь вычисляем в уже отсортированном массиве нужный элемент и сравниваем с элементом массива, выводим его.
сч2 = сч2+1;  
иначе
и = ложь;
конецесли;
конеццикла;

(138) "И" нельзя в качестве идетификатора использовать, влобрешатель :)

Идентификатора*

(139) угу надо его заменить на инд например

интересно как ТС делает вброс и пропадает )
может он тестит мисту ?

(137) незачёт. а если выкинули a[n] или a[n-1]?

(142) может его забанили, такой вариант не рассматриваешь?
(143) надо еще думать ))

(144) сдаёшься?

(145) думаю еще ))

(146) даю подсказку: возможны три ситуации:
1. удалили последний элемент массива
2. удалили один из двух предпоследних элементов массива
3. удалили другой элемент массива, кроме первых двух и последних трёх

(147) всё это понятно, напишу через 2-3 дня

ну чё, кто-нибудь ещё хочет попытаться решить (101)?

(149)"сколько?"© :-))

(150) + 5 баллов к ЧСВ, +10 баллов к карме, возможно, даже немного вырастет мужской орган :)))

(101)

a[0]+a[1]+...+a[n]=a[n+2]-a[1] = a[n]+a[n+1]-a[1] = 2*a[n]+a[n-1]-a[1]

a[0]<a[1]<...<a[n]<... - строгие неравенства, случай нулевой последовательности неинтересен

как и ранее в цикле за один проход находим величины:
1. сумму массива S
2. a[1]
3. M - максимальный элемент массива
4. N - максимальный, среди всех меньших M (предпоследний)

Если бы не удалили элемент, то было бы тождество S = 2*M+N-a[1]
Вычислим разность: 2*M+N-a[1]-S >= 0
1. Если она равна 0, то удалили именно a[n], то есть M=a[n-1], N=a[n-2] => восстанавливаем удаленный как a[n]=M+N
2. Если она больше 0, то сравним ее с N
2.1. Если она равна N, то удалили именно a[n-1], восстановим его как a[n-1]=M-N
2.2. Если не равна N (на самом деле даже строго меньше), то это и есть тот самый удаленный элемент

(152) сразу навскидку возникает несколько вопросов:

1. по мелочи - последний элемент a[n-1], а не a[n], ибо нумерация индекса идёт с нуля
2. понятно, что n>=3. а что будет при n=3? а при n=4?
3. каков критерий/алгоритм определения a[1]? ведь в условии нет того, что обязательно a[0]<a[1], если будешь искать минимум, то он может быть как a[0], так и a[1]

(152) и ещё: странно, но в моём алгоритме мне понадобилось вычислять больше величин при проходе массива в цикле. надо будет потестить, либо твой алгоритм не учитывает некоторые случаи, либо я излишне загромоздил свой алгоритм :)

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

Как-то так:

ВсегоЭталон = 0; Всего = 0;
Для х = 0 по n-1 Цикл
  ВсегоЭталон = ВсегоЭталон + x;
  Всего = Всего + Массив[x];
КонецЦикла;
Сообщить(ВсегоЭталон + n - Всего);

Чорд, уже было...

(0) проще говоря, это задача поиска "дырок" в ряде натуральных чисел - решается одним запросом, правда тескт запроса нужно генерить.

Готового запроса(без генерации) пока не изобрели, даже Чистов пытался. на 8.1-8.2 пока не реализуемо

циклические алгоритмы как не оптимизируй - это г-код.

гугли, ждем 8.3, мож получиться создать запрос поиска "дырок" без генерации текста запроса, а просто одним универсальным текстом.

ета все, извращайтесь

Ыыыы... А в (10) еще круче. А я навскидку формулу для этого ряда не нашел...

(153) нда... не всё так сладко в (101)(( Ответ на пункт 2 и 3. Найдем таки a[1]:

опять же всюду считаем max{a[0],a[1]}>0

Случай, когда в начальном (до удаления) массиве было всего 3 элемента рассмотрим отдельно - на самом деле он элементарен, то есть если цикл прошел всего 2 итерации -  то "голубчик попался": a[0]+a[1]

Когда в начальном 4 элемента (3 итерации цикла) - также отдельно, P - некий третий, P>=max(a[0],a[1])
Если P>a[0]+a[1], то недостающий это a[0]+a[1]. Если же P=a[0]+a[1], то задача не имеет однозначного решения, так как недостающий это либо 2*a[0]+a[1], либо a[0]+2*a[1] (однозначно если a[0]=a[1]).

Остальные случаи - ищем a[1]
для этого выберем два наименьших элемента, из множества без a[0],a[1]. Пусть это P<=Q. Это два элемента из множества {a[2],a[3],a[4]}.
0.Так как a[4]>a[3], то P=Q <=> P=Q=a[2]=a[3] <=> a[1]=0.
1.Теперь P<Q:
 1.1.Если a[0]+a[1]=P, то P=a[2]
   1.1.1.Если Q-P один из {a[0],a[1]}, то Q-P=a[1]
   1.1.2.Иначе - Q-P=a[3] => Q-2*P=a[1]
 1.2.Если a[0]+a[1]<P, то P=a[3], Q=a[4] => Q-P=a[2] => 2*P-Q=a[1]

вот как то так, это дописка к (152)


По пункту 1. - да я увеличил количество на 1, но на рассуждения это не влияет

(160)

да, всё правильно, для n=3 всё тривиально до безобразия, этот случай рассматривать не будем

для n=4 однозначного решения в общем случае не существует:
примеры:
нач.посл-ти:   1 2 3 5   и   2 1 3 4
если удалили последний элемент, однозначно его вычислить невозможно.

можно выделить подзадачу с имеющимся решением, наложив доп.условия, например, что a[0]<=a[1], но, собственно, этот случай нам тоже неинтересен, ибо самое вкусное начинается при n>=5

"вырожденный случай", когда a[0]=a[1]=0, в принципе, тоже можно заложить в решение, ведь ничего сложного в его детектировании нет, а решение существует и абсолютно однозначно: удалённый элемент = 0   :)

итак, теперь переходим к самому вкусному, к n>=5

как я уже говорил, возможны три варианта:

1. удалили последний элемент массива
2. удалили один из двух предпоследних элементов массива
3. удалили другой элемент массива, кроме первых двух и последних трёх

казалось бы, чего сложного? для каждого варианта можно без проблем написать формулу для вычисления недостающего элемента.
пусть max(0) - максимальный элемент из данной нам "секвестированной" посл-ти, max(-1) - предшествующий ему максимум (т.е. "предыдущий"),
sum(0) - сумма элементов первоначальной посл-ти, sum(-1) - сумма элементов "секвестированной" посл-ти
1. Удалённый элемент = max(0)+max(-1)
2. Удалённый элемент = max(0)-max(-1)
3. sum(0)=2*max(0)+max(-1)-a[1], тогда
Удалённый элемент = sum(0)-sum(-1)

казалось бы, вроде всё просто? нет, хренушки.
возникает вопрос: а как же достоверно определить a[1], учитывая, что в условиях задачи нет "подарка" в виде условия a[0]<=a[1]?
ещё один возникающий вопрос: а как достоверно определить, что из посл-ти выкинули последний элемент - a[n-1]?

когда я накидал 11-го числа условия задачи в (101), у меня только ещё было изложенный выше концептуальный зародыш решения, и эти вопросы у меня ещё не возникли.
12-го утром на свежую голову я понял, как можно определить, что из посл-ти выкинули последний элемент - a[n-1], но формула, опять-таки, опиралась на пресловутый a[1].
потом целый день было не до этого - рабочий день, всё-таки, вечерком попытался опять наскоком решить задачу нахождения a[1] - ничего не вышло. уже был готов пойти на попятную, и признать, что без условия a[0]<=a[1] задача не имеет однозначного решения, но решил, что утро вечера мудренее.
и оказался прав, ибо свежий утренний мозг 13-го мая вывел меня на алгоритм достоверного определения a[1].

хочу заметить, что изложенный тобой алгоритм определения a[1], некорректен, ибо никто не давал клятву не выкидывать из посл-ти a[2], a[3] или a[4], а доступ у нас только к "секвестированной" посл-ти, да и то в рамках только одного цикла

(161) эээ.. взял все и перечеркнул, ты прочти внимательней, там все учтено (ну мне кажется так, по крайней мере)

(161) тем более, что там все учтено, находим P, Q и a[0], a[1] (причем не зная, кто есть кто)и по их отношениям находим a[1]

(163) ах, ч0рт, каюсь, невнимательно прочитал. гениально!

а я решил так:
ряд Фибоначчи, как и ряд из (101), являются частными случаями линейной рекуррентной последовательности, а для неё имеется набор уже доказанных св-в и формул, например, для нашего случая, справедливо равенство: a[i]=a[1]*F[i-1]+a[0]*F[i-2], где F - классический ряд Фибоначчи  1, 1, 2, 3, 5, 8, 13  и т.д.

в процессе обхода циклом посл-ти находим min(0) - минимум, и min(1) - "следующий" минимум. это наши искомые a[0] и a[1], осталось только разобраться, кто из них кто. также в процессе обхода циклом "по пути" вычисляем F[n-1] и F[n-2], далее, проверяем соотношение min(0)*F[n-1]+min(1)*F[n-2]=max(0), если оно выполнено, это означает, что min(0) и min(1) перепутаны местами, делаем им ротацию, и окончательно получаем min(0)=a[0], min(1)=a[1]

+(164)  кстати, интересная получилась задачка, сам не ожидал

+(164) и ещё, забыл:

можно явно выразить любой a[i], ибо F[i-1] и F[i-2] явно выражаются формулой.
так, для любого i F[i]=1/(1-2q)*((1-q)^i-q^i), где q - любой корень характеристического уравнения q^2-q-1=0
т.о. q=(1+-sqrt(5))/2.
т.о., если использовать мат.вычисления, можно прямо найти любой член первоначальной посл-ти