# i: index; found:

i: index; found: boolean; begin i := left; for i := left to right do if Mas[i] = sample then begin Search := i; Break end; end; if R = 1 then Exit Текст трудно назвать удачным, так как отсутствие искомого образца среди элементов массива оставляет результат неопределенным. Конечно, исправить ситуацию несложно: можно использовать глобальную булевскую переменную, либо процедуру с двумя выходными параметрами. Но мы сознательно допустили указанную неточность, - чтобы получить повод для демонстрации типичного приема, который часто используется при обработке векторов. Речь идет о добавлении в массив &quot;фиктивного&quot; элемента, когда вместо вектора длиной N используется вектор длиной N+1. С этим приемом мы еще встретимся. Алгоритм E2-2 (2) type index = 0..N; {N &gt; 1} massive1 = array [index] of item; function Search (Mas: massive1; left, right: index; sample: item): index; var i: index; begin i := left; while (i&lt;right) and (Mas[i] &lt;&gt;

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