Найдите разность максимального и минимального из - вопрос №8861025 от malinka151 08.03.2022 23:27

Question

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

malinka151 · Answer

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