min_max2{ i := 2;
result.max := e[1]; result.min := e[1];
while (i £ n) do
      if  not (e[i] £ result.max) then 
          result.max := e[i]
     else  if  not (result.min £ e[i]) then
           result.min := e[i] fi
      fi;         
      i := i+1;od}
Zamknij okno