Найдите разность максимального и минимального из - вопрос №8861927 от YanDzhabbarov 01.05.2023 04:24

Question

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

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