pascalabcnet/TestSuite/params1.pas

10 lines
144 B
ObjectPascal
Raw Permalink Normal View History

2015-05-14 22:35:07 +03:00
function Test(params a : array of integer) : integer;
begin
Result := a[0]+a[1];
end;
var t : integer := Test(1,2);
begin
assert(t=3);
end.