Equilibrium index: Difference between revisions
m
Fix pascal version to run in delphi
(Add Rust implementation) |
MaiconSoft (talk | contribs) m (Fix pascal version to run in delphi) |
||
Line 1,737:
=={{header|Pascal}}==
<lang pascal>Program EquilibriumIndexDemo(output);
{$IFDEF FPC}{$Mode delphi}{$ENDIF}
function ArraySum(list: array of integer; first, last: integer): integer;
Line 1,742 ⟶ 1,744:
i: integer;
begin
for i := first to last do // not taken if first > last
end;
| |||