Greatest element of a list: Difference between revisions

Content deleted Content added
→‎{{header|Euler}}: Sybntax highlight with Mediawiki markup
Miks1965 (talk | contribs)
PascalABC.NET
 
(3 intermediate revisions by 3 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}}==
Line 4,754 ⟶ 4,767:
 
=={{header|Wren}}==
<syntaxhighlight lang="ecmascriptwren">var max = Fn.new { |a| a.reduce { |m, x| (x > m) ? x : m } }
 
var a = [42, 7, -5, 11.7, 58, 22.31, 59, -18]