Program TableauExercice05;

Const
	N = 10;
	
Type
	Tableau = Array [1..N] of Integer;

Var 
    t : Tableau;
    i, j, temp : Integer;

Begin
	{ Lecture des éléments d'un tableau }
	{ Vous devez toujours mettre cette boucle même si elle n'est pas mentionnée }
	
	WriteLn('Donnez ', N, ' éléments :');
	For i := 1 to N Do
		ReadLn(t[i]);
		
	j := N;
	
	For i := 1 to (N Div 2) Do
	Begin
		{ Inverser deux valeurs }
		temp := t[j];
		t[j] := t[i];
		t[i] := temp;
		
		j := j - 1;
	End;
		
	WriteLn('Le tableau inversé est :');
	
	{ Pour afficher un tableau, nous avons besoin d'une boucle comme la lecture }
	For i := 1 to N Do
		WriteLn(t[i]);
	
End.