Matematyka.pl

Mam za zadanie napisać program, który wyświetla maksimum z zadanej listy. Bez używania max[]. Moja próba:

maksimum[u_] := Module[{a = u, maks = u[[0]]},
   For[i = 0, i < Length[a], i++,
    If[a[[i]] > m, maks = a[[i]]]];
   Print[maks]];

Kod: Zaznacz cały

In: maksimum[{-5, 2, 1}]
Out: List

Czemu zwraca mi jakąś listę?

w Mathematice listy są numerowane od 1.

jesli
tab={1,2,3}

To tab[[0]] to to samo co Head[tab] czyli List

Poza tym ostatnim elementem modułu powinna być zwracana wartość, a nie Print[maks]. Tzn samo maks powinno być.

Matematyka.pl

Mathematica, maksimum z listy

Mathematica, maksimum z listy

Re: Mathematica, maksimum z listy