Изменения

'''function''' nextPeremutation(a:array[1..n] of integer):array[1..n] of integer; // n - длина перестановки '''for''' i = n - 1 '''downto''' 1 '''if''' a[i] < a[i + 1] '''for''' j = i + 1 '''to''' n '''if''' (a[j] < a[min]) and (a[j] > a[i]) min==j swap(a[i], a[j]) reverse(a[i + 1]..a[n]) '''break''' return(a);