maximo.mws

>    with(linalg): 

Warning, the protected names norm and trace have been redefined and unprotected

>    Max := proc(t::array)

>      local max, max_temp;

>      max := t[1];

>      for max_temp from 1 to vectdim(t) do

>         if t[max_temp] > max then

>            max := t[max_temp]

>         fi;

>         od;

>         RETURN([max]);

>    end:

>    t := array(1..10, [1,20,45,3,2,10,99,98,45,32]);

t := vector([1, 20, 45, 3, 2, 10, 99, 98, 45, 32])

>    Max(t);

[99]

>