Program Min_Max_tab ;
Var
T : Array [1..50] of Integer;
i, min, max, n : Integer;
Begin
Repeat
Writeln('Donnez la taille de tableau: ');
Readln(n);
Until(n>=10) and (n<=50);
For i:=1 To n Do Readln (T[i]);
min:=T[1];
max:=T[1];
For i:=2 To n Do 
Begin
If T[i]<min Then min:=T[i];
If T[i]>max Then max:=T[i];
End;
Writeln('Valeur maximale = ', max);
Writeln('Valeur minimale = ', min);
End.