Написать программу нахождения наименьшей суммы двух соседних элементов массива

Question

Написать программу нахождения наименьшей суммы двух соседних элементов массива

Answer 1

// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
begin
  var a:=ArrRandom(ReadInteger('n='),10,99); a.Println;
  Writeln('Min. сумма соседних элементов: ',
    a.Pairwise.Select(x->x[0]+x[1]).Min)
end.

Тестовое решение
n= 15
72 22 71 77 41 89 73 54 29 47 47 46 98 82 15
Min. сумма соседних элементов: 76

Comments

а можно всю полную программу?

---

Так это и есть полная. Запускайте и убедитесь.