all tasks

Task/Sorting-algorithms-Selection-sort/Seed7/sorting-algorithms-selection-sort.seed7

@@ -0,0 +1,19 @@
+const proc: selectionSort (inout array elemType: arr) is func
+  local
+    var integer: i is 0;
+    var integer: j is 0;
+    var integer: min is 0;
+    var elemType: help is elemType.value;
+  begin
+    for i range 1 to length(arr) - 1 do
+      min := i;
+      for j range i + 1 to length(arr) do
+        if arr[j] < arr[min] then
+          min := j;
+        end if;
+      end for;
+      help := arr[min];
+      arr[min] := arr[i];
+      arr[i] := help;
+    end for;
+  end func;