Program Inverser_tab;
Type Tab = Array [1..50] of Integer;
Var T : Tab;
i, n, aux : Integer;
Begin
Repeat
Writeln ('Saisir un entier');
Readln (n);
Until n in [10..50];
Writeln ('Saisir les ', n, ' éléments de T');
For i := 1 To n Do Readln (T[i]);
For i := 1 To (n div 2) Do
Begin
aux := T[i];
T[i] := T[n-i+1];
T[n-i+1] := aux;
End;
Writeln;
Writeln;
Writeln ('Tableau inversé :');
For i := 1 To n Do Write(T[i]:4);
End.