aboutsummaryrefslogtreecommitdiff
path: root/examples/pascal/Sum_over_array.pas
blob: 714a4f6c92942df7a936e648ae47663c5d70a23d (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
unit output;

interface

function SumOverArray(const Input: array of Integer): Integer;

implementation

function SumOverArray(const Input: array of Integer): Integer;
var
  I: Integer;
begin
  SumOverArray := 0;

  for I := Low(Input) to High(Input) do
  begin
    SumOverArray += Input[I];
  end;
end;

end.