8 lines
177 B
ObjectPascal
8 lines
177 B
ObjectPascal
begin
|
|
var a := Arr(1..10);
|
|
a.Println;
|
|
var ps := a.PartialSum;
|
|
ps.Println;
|
|
ps.Incremental.Println; // Incremental - "почти" обратная к PartialSum
|
|
end.
|