all tasks

Task/Sorting-algorithms-Bubble-sort/Modula-2/sorting-algorithms-bubble-sort.mod2

@@ -0,0 +1,19 @@
+PROCEDURE BubbleSort(VAR a: ARRAY OF INTEGER);
+  VAR
+    changed:        BOOLEAN;
+    temp, count, i: INTEGER;
+BEGIN
+  count := HIGH(a);
+  REPEAT
+    changed := FALSE;
+    DEC(count);
+    FOR i := 0 TO count DO
+      IF a[i] > a[i+1] THEN
+        temp := a[i];
+        a[i] := a[i+1];
+        a[i+1] := temp;
+        changed := TRUE
+      END
+    END
+  UNTIL NOT changed
+END BubbleSort;