Реализации алгоритмов/Сортировка/Пузырьком: различия между версиями
Содержимое удалено Содержимое добавлено
Bormant (обсуждение | вклад) м →C |
Bormant (обсуждение | вклад) м →Delphi |
||
Строка 158:
var i, t, n, nn: Integer;
begin
n:=
repeat
nn:= 0;
for i:= 1 to n-1 do
if a[i-1] > a[i] then
begin
|