Найти максимальный элемент одномерного массива из 30 элементов

Var ar: array[1..30] of integer; i,max: integer; begin; randomize; writeln('array'); for i: =1 to 30 do begin; ar[i]: =random(1,100); write(ar[i]: 4); end; for i: =1 to 30 do if max< ar[i] then max: =ar[i]; writeln; writeln('result: ',max); end.

1*2⁶+1*2⁵+0*2⁴+1*2³+0*2²+1*2¹+1*2⁰=

64+32+8+2+1=107

 

1*2⁶+0*2⁵+0*2⁴+0*2³+1*2²+1*2¹+0*2⁰=

64+4+2=70

 

 

 

var x1,x2,x3,x4: integer;

 

function max(a,b: integer): integer

begin

    if a> b then max: = a

    else max: =b;

end;

 

begin

  read(x1,x2,x3,x4);

  x1: =max(x1,x2);

  x2: =max(x3,x4);

  x1: =max(x1,x2);

  writeln(x1);

end.