ввести одномерный массив состоящий из четырех элементов. найти максимальный элемент. если он меньше 250 то вывести на экран удвоенный максимальный элемент иначе вывести на экран максимальный элемент без изменений
Ответы на вопрос
Ответил Аноним
0
// 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.
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(4,1,500); // создали массив
a.Println; // распечатали его элементы
var max:=a.Max;
if max<250 then Writeln(2*max)
else Writeln(max)
end.
Новые вопросы