его, "укорачивая&
его, "укорачивая" вектор. В нашем случае единственным кандидатом на перенос в хвост является наибольший элемент подмассива (естественно, можно расставлять и наименьшие элементы, - слева). И еще один алгоритм нам пригодился - E2-1(2). Построенную разновидность обменной сортировки обычно называют сортировкой выбором.
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 > 1}
Programmer = record of
Name: string; Number: byte; Time: word
end;
var Results = array [index1] of Programmer;
type
index1 = 0..N-1; {N > 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<r do begin
middle:= (l+r) div 2;
if Mas[middle] < sample then l:= middle + 1
else r := middle
Индекс
Элементарные функции
Линейные уравнения
Нелинейные уравнения
Случайные числа
