all tasks

Task/Sorting-algorithms-Bubble-sort/Pascal/sorting-algorithms-bubble-sort-1.pascal

@@ -0,0 +1,15 @@
+procedure bubble_sort(var list: array of real);
+var
+  i, j, n: integer;
+  t: real;
+begin
+  n := length(list);
+  for i := n downto 2 do
+    for j := 0 to i - 1 do
+      if list[j] > list[j + 1] then
+      begin
+        t := list[j];
+        list[j] := list[j + 1];
+        list[j + 1] := t;
+      end;
+end;

Task/Sorting-algorithms-Bubble-sort/Pascal/sorting-algorithms-bubble-sort-2.pascal

@@ -0,0 +1,4 @@
+var
+  list: array[0 .. 9] of real;
+// ...
+bubble_sort(list);