Program Minmax;
 Const
  Nmax=200;
 Var
  X : Array [1..Nmax] Of Real;
  Min, Max : Real;
  N, i : Integer;

Begin
 Writeln('Введите количество чисел');
 Readln(n);
 Writeln('Вводите элементы массива');
 For i := 1 To n Do Read(X[i]);
 Min := X[1];
 Max := X[1];
 For i : =2 To n Do
   If Max < X[i] Then
      Max := X[i]
   Else
     If Min > X[i] Then
        Min :=X [i];
 Writeln ('Min= ', Min:8;2,'Max= ', Max:8:2);
End.