# осуществить еще

осуществить еще одну проверку, то можно установить и совпадение, после чего дальнейшие шаги не обязательны.) * Если остался интервал единичной длины, то переходим к заключительному шагу 4, в противном случае - к шагу 1. * Либо единственный элемент интервала совпадает с образцом, либо - искомого элемента в массиве нет. Пример #1. Задумайте число от 1 до 100. Ваше число больше 50? -- Да. -- Ага, остался интервал от 51 до 100. Ваше число больше 75? -- Нет. -- Теперь остается промежуток от 51 до 75. И так далее. Напишем соответствующую паскаль-функцию. const N=100; type index1 = 0..N-1; massive1 = array [index1] of byte; procedure InitArray1 (var Mas: massive1); var i: index1; begin for i:= 0 to N-1 do Mas[i]:= N-i; end; type index1 = 0..N-1; {N &gt; 1} Programmer = record of Name: string; Number: byte; Time: word end; var Results = array [index1] of Programmer; type index1 = 0..N-1; {N &gt; 1} massive1 = array [index1] of

Индекс
Элементарные функции Линейные уравнения Нелинейные уравнения Случайные числа