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

Содержимое удалено Содержимое добавлено
Строка 158:
var i, t, n, nn: Integer;
begin
n:= HighLenght(a);
repeat
nn:= 0;
for i:= 1 to n-1 do
if a[i-1] > a[i] then
begin