Question

ввести одномерный массив состоящий из четырех элементов. найти максимальный элемент. если он меньше 250 то вывести на экран удвоенный максимальный элемент иначе вывести на экран максимальный элемент без изменений

Answer 1

// 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.