Program TableauExercice02;

Const
	N = 10;

Var 
    t : Array [1..N] of Integer;
    i, min, max : 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]);
		
	max := t[1];
	min := t[1];
	
	For i := 2 to N Do
	Begin
		{ Les deux vérifications sont indépendantes }
		{ Il faut écrire ces deux "if..." pas un "if...else" }
		If(max < t[i])Then
			max := t[i];
			
		If(min > t[i])Then
			min := t[i];
	End;
		
	WriteLn('max = ', max);
	WriteLn('min = ', min);
	
End.