Вход: массив A, состоящий из N элементов, с нумерацией от A[1] до A[N]
sc := 0;
цикл пока N - sc > 0:
  цикл для i = 2, ..., N-sc:
    если A[i] < A[i-1], то:
      поменять местами A[i] и A[i-1];
  sc := sc + 1;