Linguagem Pascal - Shift array de elementos (Rotação) -Recursão
Aqui está um procedimento recursivo que permite deslocar todos os elementos de um array para a direita a partir da posição p .
Deslocamento de Procedimento (Var t: Tab; p, n: inteiro); Begin If p <= n Então comece o decalcador (t, p + 1, n); t [p + 1]: = t [p]; Fim; Fim;
Obrigado a Zouari Lazhar por essa dica.