# (var Mas: massive1); var

(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 item; function Search2 (Mas: massive1; left, right: index; sample: item): boolean; var l, r, middle: index1; begin l := left; r:= right; while l&lt;r do begin middle:= (l+r) div 2; if Mas[middle] &lt; sample then l:= middle + 1 else r := middle end; if M[l] = sample then Search2:= true else Search2:= false end; type index1 = 0..N-1; {N&gt;1} massive1 = array [index1] of item; procedure SelectionSort (var Mas: massive1); var i: index1; begin for i := (N-1) downto 1 do Swap(Mas[i], Mas[IndexMax(Mas,0,i)]); end; Упражнение #3. Напишите процедуру инициализации линейного массива случайными числами из заданного интервала. Повторение

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