Зертханалық жұмыс

{ x жиымының k аз элементтері өз орындарында орналасқан}

while k <> n do begin

| s := k + 1; t := k + 1;

| {x[s] - арасында ең азы... x[k+1] x[t] }

| while t<>n do begin

| | t := t + 1;

| | if x[t] < x[s] then begin

| | | s := t;

| | end;

| {x[s] – ең аз x[k+1]..x[n] }

| ... ауыстыру x[s] и x[k+1];

| k := k + 1;