Таким чином, для сортування таблиці за цим алгоритмом, нам необхідно використовувати два цикли: Перший або зовнішній для завдання першого елементу чергової, нової таблиці та запису най його місце найменшого елементу Другий або внутрішній для пошуку найменшого елементу чергової нової (зменшеної на 1 елемент) таблиці. Намалюєм алгоритм:
var a: array [1..10] of integer; i,c : integer; begin for i:=1 to 10 do begin WriteLn(“"Введіть значення “); ReadLn (a[i]); end; for i:= 1 to 10 do begin c:= a[i] ; d:=i For j = i to 10 do begin if c > a[ j ] then begin c:=a[j] ; d:=j end; end; a[d]:=a[i] ; a[i]:=c end; for i:=1 to 10 do WriteLn(a[i], “ “) end.