Greatest element of a list: Difference between revisions
Content deleted Content added
m →{{header|Wren}}: Changed to Wren S/H |
PascalABC.NET |
||
(2 intermediate revisions by 2 users 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 1,031 ⟶ 1,040:
130 PRINT "The maximum value was "; c; " at index "; i; "."
140 END</syntaxhighlight>
==={{header|SmallBASIC}}===
<syntaxhighlight lang="qbasic">
list = [1,1234,62,234,12,34,6]
print max(list)
</syntaxhighlight>
=={{header|Batch File}}==
Line 2,480 ⟶ 2,495:
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 3,817 ⟶ 3,823:
FindMaxInt 999999 @ 691620
FindMaxFlt 999999.0265 @ 14824</pre>
=={{header|PascalABC.NET}}==
<syntaxhighlight lang="delphi">
##
var values := Lst(1,7,4,6,3,5,2,6);
values.Max.Print;
</syntaxhighlight>
=={{header|Perl}}==
|