Anonymous user
Greatest element of a list: Difference between revisions
no edit summary
m (→{{header|Wren}}: Changed to Wren S/H) |
imported>Lacika7 No edit summary |
||
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}}==
| |||