Question

Найдите разность максимального и минимального из четырёх чисел

Answer 1

PascalABC.NET 3.3.5, сборка 1636 от 10.03.2018
Внимание! Если программа не работает, обновите версию!

begin
  var a:=ReadArrReal('Введите 4 числа:',4);
  Writeln('Разность наибольшего и наименьшего: ',a.Max-a.Min)
end.

Пример
Введите 4 числа: 5.18 10 -2 0
Разность наибольшего и наименьшего: 12

Answer 2

Чтобы найти разность между максимальным и минимальным из четырех чисел, нужно сначала найти максимальное и минимальное число из этих четырех чисел, а затем вычесть минимальное число из максимального.

Допустим, у нас есть четыре числа: a, b, c, d.

1. Найдем максимальное число из этих четырех чисел. Для этого сравним каждое число с другими тремя числами и выберем самое большое из них. Обозначим максимальное число как max.

max = max(a, max(b, max(c, d)))

2. Теперь найдем минимальное число из этих четырех чисел. Для этого сравним каждое число с другими тремя числами и выберем самое маленькое из них. Обозначим минимальное число как min.

min = min(a, min(b, min(c, d)))

3. Наконец, найдем разность между максимальным и минимальным числами:

разность = max - min

Таким образом, мы найдем разность между максимальным и минимальным из четырех чисел.