Cho một dãy các số nguyên x₁, x₂,..., x_n. Hãy tìm cách bỏ đi ít số nhất để sao cho phần còn lại là dãy không giảm.
FOR i:= 0 to n do sh(i):= 0;
x₀ := -∞;
max:= 0;

FOR i:= 1 to n-1 do
          FOR j := i+1 to n do
                    if x_i ≤ x_j THEN
                              if sh(j)<= sh(i) THEN sh(j):= sh(i)+1;
                              if sh(j) > max THEN max := sh(j);

{Ghi những giá trị xi bị loại ra khỏi dãy}

k:= max;
i:= n;
WHILE sh(i) ≠ max do
          write x_i;
          i:= i-1;
tg:= x_i;

WHILE k ≠ 0 do
          if not (sh(i) = k - 1 and x_i ≤ tg) THEN
                    write x_i;
                    i := i - 1;
          ELSE
                    k := k -1;
                    tg := x_i;

Nếu loại cả phần tử max thì cũng được chứ nhỉ?