最大値

最大値を求めるユーザー定義関数です。
最小値の場合は、4行目の不等号の向きを変更します。
※表記は、max ⇒ min とした方が良いですね。

function max(val,num){        # 最大値
        vmax=val[1]
    for(i=1;i<=num;i++){
        if(val[i]>vmax){
            vmax=val[i]
            }
        }    # for
    {return vmax}
    }    # function