Реализации алгоритмов/Сортировка/Шелла: различия между версиями

Содержимое удалено Содержимое добавлено
Недоработка в алгоритме для Pascal
Строка 220:
Arr[j+g] := Tmp;
end;
dec(j, := j-1g);
until not ((j>=0) and C);
inc(i := i+1);
until not (i<=n);
g := g div 2;