Initial data commit

Task/Sorting-algorithms-Insertion-sort/B4X/sorting-algorithms-insertion-sort.b4x

@@ -0,0 +1,19 @@
+Sub InsertionSort (A() As Int)
+	For i = 1 To A.Length - 1
+		Dim value As Int = A(i)
+		Dim j As Int = i - 1
+		Do While j >= 0 And A(j) > value
+			A(j + 1) = A(j)
+			j = j - 1
+		Loop
+		A(j + 1) = value
+	Next
+End Sub
+
+Sub Test
+	Dim arr() As Int = Array As Int(34, 23, 54, 123, 543, 123)
+	InsertionSort(arr)
+	For Each i As Int In arr
+		Log(i)
+	Next
+End Sub