all tasks

Task/Sorting-algorithms-Selection-sort/Run-BASIC/sorting-algorithms-selection-sort.run

@@ -0,0 +1,21 @@
+siz = 10
+dim srdData(siz)
+for i = 1 to siz
+srtData(i) = rnd(0) * 100
+next i
+
+FOR i = 1 TO siz-1
+   lo = i
+   FOR j = (i + 1) TO siz
+      IF srtData(j) < srtData(lo) lo = j
+   NEXT j
+   if i <> lo then
+   temp        = srtData(i)
+   srtData(i)  = srtData(lo)
+   srtData(lo) = temp
+   end if
+NEXT i
+
+for i = 1 to siz
+print i;chr$(9);srtData(i)
+next i