Anonymous user
Greatest element of a list: Difference between revisions
no edit summary
(→{{header|Euler}}: Sybntax highlight with Mediawiki markup) |
imported>Lacika7 No edit summary |
||
(One intermediate revision by one other user not shown) | |||
Line 998:
160 PRINT "THE MAXIMUM VALUE WAS ";C;" AT INDEX ";I;"."
170 END</syntaxhighlight>
==={{header|IS-BASIC}}===▼
<syntaxhighlight lang="is-basic">1000 DEF FINDMAX(REF ARR)▼
1010 LET MX=ARR(LBOUND(ARR))▼
1020 FOR I=LBOUND(ARR)+1 TO UBOUND(ARR)▼
1030 LET MX=MAX(MX,ARR(I))▼
1040 NEXT▼
1050 LET FINDMAX=MX▼
1060 END DEF</syntaxhighlight>▼
==={{header|MSX Basic}}===
Line 2,480 ⟶ 2,489:
4
</pre>
▲=={{header|IS-BASIC}}==
▲<syntaxhighlight lang="is-basic">1000 DEF FINDMAX(REF ARR)
▲1010 LET MX=ARR(LBOUND(ARR))
▲1020 FOR I=LBOUND(ARR)+1 TO UBOUND(ARR)
▲1030 LET MX=MAX(MX,ARR(I))
▲1040 NEXT
▲1050 LET FINDMAX=MX
▲1060 END DEF</syntaxhighlight>
=={{header|J}}==
Line 4,754:
=={{header|Wren}}==
<syntaxhighlight lang="
var a = [42, 7, -5, 11.7, 58, 22.31, 59, -18]
|