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.

Answer 2

Program vh21;
var i,max:integer;M:array [1..4] of integer;
begin 
 for i:=1 to 4 do 
  begin 
   Writeln('Введите ',i,' элемент массива'); 
   Readln(m[i]); 
  end;
 max:=m[i];   
 for i:=1 to 4 do  
  if max<m[i] then max:=m[i]; 
 if max>250 then max:=max*2 ;
 Writeln('Максимальный элемент равен =',max)  
end.