mirror of
https://github.com/compiler-explorer/compiler-explorer.git
synced 2025-12-27 09:23:52 -05:00
22 lines
310 B
ObjectPascal
22 lines
310 B
ObjectPascal
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.
|