Найдите разность максимального и минимального - вопрос №8861025 от natalinatali2003 31.03.2022 16:02

Question

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

natalinatali2003 · 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