Question

Даны натуральное число n и вещественные числа x1, x2, ..., xn. Найти максимальное и минимальное из вещественных чисел. В решении использовать только один оператор цикла.​(в паскале)

Answer 1

var

 min, max, n: real;

 

begin

 read(n);

 min := n;

 max := n;

 while n <> 0 do

   begin

     if n > max

       then max := n

       else if n < min

         then min := n;

     read(n)

   end;

 if (min <> 0) or (max  <> 0)

   then write('min = ', min, ', max = ', max)

   else write('Пустая последовательность')

end.

Answer 2

Для решения этой задачи мы можем использовать цикл for. Для начала, мы можем объявить переменные для хранения минимального и максимального значения:

var n: integer; x, min, max: real;

Теперь давайте получим входные данные от пользователя:

writeln('Введите количество чисел:'); readln(n);

Теперь мы можем начать цикл for, чтобы пройти через все вещественные числа и найти минимальное и максимальное значение:

writeln('Введите вещественные числа:'); readln(x); min := x; max := x;

for i := 2 to n do begin readln(x); if x < min then min := x; if x > max then max := x; end;

И наконец, выведем минимальное и максимальное значение:

writeln('Минимальное значение:', min); writeln('Максимальное значение:', max);

Вот и все! Мы использовали только один оператор цикла, чтобы найти минимальное и максимальное значение из заданных вещественных чисел.