Pascal kalba - masyvo rekursijos elementų keitimas

Čia yra rekursinė procedūra, leidžianti elementams pakeisti lentelės dalį tarp pozicijos p ir n:

 Procedūra Invertuoti (Var t: Tab; p, n: Integer); Var aux: Real; Pradėti Jei p <n Tada pradėkite aux: = t [p]; t [p]: = t [n]; t [n]: = aux; Inverseris (t, p + 1, n - 1); Pabaiga; Pabaiga; 

Ačiū Zouari Lazhar už šį patarimą