Sync

2013-10-27 22:24:23 +00:00 · 2013-10-27 22:24:23 +00:00 · 776bba907c
commit 776bba907c
parent 6f050a029e
3887 changed files with 59894 additions and 7280 deletions
--- a/Task/Sorting-algorithms-Quicksort/Pascal/sorting-algorithms-quicksort.pascal
+++ b/Task/Sorting-algorithms-Quicksort/Pascal/sorting-algorithms-quicksort.pascal
@ -10,7 +10,7 @@ Begin
  Repeat
    While pivot > X[i] Do i:=i+1;
    While pivot < X[j] Do j:=j-1;
-    If i<j Then Begin
+    If i<=j Then Begin
      tmp:=X[i];
      X[i]:=X[j];
      X[j]:=tmp;