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.
UHJvZ3JhbSBJbnZlcnNlcl90YWI7ClR5cGUgVGFiID0gQXJyYXkgWzEuLjUwXSBvZiBJbnRlZ2VyOwpWYXIgVCA6IFRhYjsKaSwgbiwgYXV4IDogSW50ZWdlcjsKQmVnaW4KUmVwZWF0CldyaXRlbG4gKCdTYWlzaXIgdW4gZW50aWVyJyk7ClJlYWRsbiAobik7ClVudGlsIG4gaW4gWzEwLi41MF07CldyaXRlbG4gKCdTYWlzaXIgbGVzICcsIG4sICcgw6lsw6ltZW50cyBkZSBUJyk7CkZvciBpIDo9IDEgVG8gbiBEbyBSZWFkbG4gKFRbaV0pOwpGb3IgaSA6PSAxIFRvIChuIGRpdiAyKSBEbwpCZWdpbgphdXggOj0gVFtpXTsKVFtpXSA6PSBUW24taSsxXTsKVFtuLWkrMV0gOj0gYXV4OwpFbmQ7CldyaXRlbG47CldyaXRlbG47CldyaXRlbG4gKCdUYWJsZWF1IGludmVyc8OpIDonKTsKRm9yIGkgOj0gMSBUbyBuIERvIFdyaXRlKFRbaV06NCk7CkVuZC4=