Question

Есть массив, состоящий из N целых чисел, но значения элементов вам неизвестны. Ваша задача найти эти элементы по заданному значению минимального элемента и разности между соседними элементами.

Answer 1

// PascalABC.NET 3.3, сборка 1599 от 17.12.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadlnInteger;
  var a0:=ReadlnInteger;
  var d:=ReadArrInteger(n-1);
  Print(a0);
  for var i:=0 to d.Length-1 do begin
    a0:=a0+d[i]; Print(a0)
    end;
end.

Пример
5
1
1 2 -1 2
1 2 4 3 5