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