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.
2008-04-09 • Просмотров [ 12497 ]