pascalabcnet/InstallerSamples/!MainFeatures/03_Subroutines/FuncParams.pas

12 lines
243 B
ObjectPascal
Raw Permalink Normal View History

// Переменное число параметров
2015-05-14 22:35:07 +03:00
function Sum(params arg: array of integer): integer;
begin
Result := 0;
foreach var x in arg do
Result += x;
end;
begin
Println(Sum(1,2,3));
Println(Sum(4,5,6,7));
2015-05-14 22:35:07 +03:00
end.