Сортировка вставками
Как сортировать массив сортировкой вставками?
сортируется массив A размером N чисел. procedure sort2; var i,j,c,k,b:integer; begin for i:=2 to n do begin j:=i-1; while(j>0)and(a[j]<=a[i]) do dec(j); inc(j); b:=a[i]; for k:=i downto j+1 do a[k]:=a[k-1]; a[j]:=b; end; end;
