Склавиатуры вводится 3 числа, наибольшее увеличить - вопрос №8497832333 от MrDog2005 30.10.2020 21:01

Question

Информатика: Склавиатуры вводится 3 числа, наибольшее увеличить на 3, меньшее на -3, среднее заменить на 0 паскаль

MrDog2005 · Answer

//PascalABC.NET 3.3,сборка 1611 от 06.01.2018//Внимание! Если программа не работает, обновите версию!begin

Writeln('Введите три числа' );

var mas:=ReadArrIneger(3);var a:=mas.Max;

var b:=mas.Min; var c:=0;

Writeln('max=',a+3,' ','min=',b-3,' ','sred=',c);

end.
Склавиатуры вводится 3 числа, наибольшее увеличить на 3, меньшее на -3, среднее заменить на 0 паскал

Склавиатуры вводится 3 числа, наибольшее увеличить на 3, меньшее на -3, среднее заменить на 0 паскал