Блог geloni-el. Linux, программирование, математика.

Готовая реализация алгоритма сортировки выборкой  на языке Pascal.

type vector = array[1..max_size_array] of integer;

procedure selection_sort(var a:vector; var m:vector; size:integer);
var
b,k,i,j:integer;
flag:boolean;
begin

m:=a;
for i:=1 to size-1 do
begin
flag:=true;
k:=i;
for j:=i to  size do
begin
if m[k] > m[j] then
begin
k:=j;
flag:=false;
end;
end;
b:=m[i];
m[i]:=m[k];
m[k]:=b;
if flag then
break;

end;
end;