Сортировка обменом (пузырька)
Как сортировать массив обменной сортировкой?
сортируется массив A размером N чисел. procedure SORT{obmen ili puzerka}; var i,j,c:integer; begin for i:=1 to n-1 do for j:=1 to n-i do if a[j]>a[j+1] then begin c:=a[j]; a[j]:=a[j+1]; a[j+1]:=c; end; end;
