ввести одномерный массив состоящий из четырех элементов. найти максимальный элемент. если он меньше 250 то вывести на экран удвоенный максимальный элемент иначе вывести на экран максимальный элемент без изменений
Answers & Comments
Impersona1// PascalABC.NET 3.3, сборка 1634 от 14.02.2018 // Внимание! Если программа не работает, обновите версию!
begin var a:=ArrRandom(4,1,500); // создали массив a.Println; // распечатали его элементы var max:=a.Max; if max<250 then Writeln(2*max) else Writeln(max) end.
Answers & Comments
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(4,1,500); // создали массив
a.Println; // распечатали его элементы
var max:=a.Max;
if max<250 then Writeln(2*max)
else Writeln(max)
end.