> | 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]); |
> | Max(t); |
> |