18 lines
329 B
ObjectPascal
18 lines
329 B
ObjectPascal
function Convert(a: array of integer): array of integer;
|
|
begin
|
|
var n := a.Length;
|
|
var res := new integer[n-1];
|
|
for var i:=0 to n-2 do
|
|
res[i] := a[i+1]-a[i];
|
|
Result := res;
|
|
end;
|
|
|
|
begin
|
|
var a := |90, 47, 58, 29, 22, 32, 55, 5, 55, 73|;
|
|
while a.Length > 0 do
|
|
begin
|
|
Println(a);
|
|
a := Convert(a);
|
|
end;
|
|
end.
|