6 lines
279 B
ObjectPascal
6 lines
279 B
ObjectPascal
begin
|
|
var arr1 := Arr(1.2,2.3,3.2);
|
|
var r{@var r: real;@} := arr1.Sum{@(расширение sequence of T) function Sum(): real;@}();
|
|
var arr2 := Arr(1,2,3);
|
|
var i{@var i: integer;@} := arr2.Sum{@(расширение sequence of T) function Sum(): integer;@}();
|
|
end. |