Дан одномерный массив A[n]. Найти max(а2,а4,....,а2к)+min(a1,a3,....,a2к+1).

Question

Дан одномерный массив A[n].
Найти max(а2,а4,....,а2к)+min(a1,a3,....,a2к+1).

Answer 1

program HelloWorld;

var n:array [1..1000] of integer;

var mx, mn, res: integer;

var i: SmallInt;

 

begin

//заполняем массив

 for i:=1 to 100 do

     n[i] := random(1000);

 

mx := 0;

mn := 0;

 

 for i:=1 to 100 do

 begin

    if(i mod 2 = 0) and (mx < n[i]) then mx := n[i];

    if(i mod 3 = 0) and (mn > n[i]) then mn := n[i];

  end;

   

    res := mx+mn;

   

    write(res);

   

end.