Код PASCAL:
const N = 10; var a: array [1..N] of integer; ind,min,j,i,K: integer; IsFound: boolean; begin for i:=1 to N do a[i] := Random(100); writeln('Элементы массива a: '); for i:=1 to N do write(a[i],' '); writeln; for i:=1 to N-1 do begin min := a[i]; ind := i; for j:=i+1 to N do if a[j]<min then begin min := a[j]; ind := j; end; a[ind] := a[i]; a[i] := min; end; writeln('После сортировки выбором: '); for i:=1 to N do write(a[i],' '); writeln; end.