Question

Здравствуйте. помогите решить задачу 40 с помощью Pascal.

Answer 1

PascalABC.NET 3.3.5, сборка 1650 от 01.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var D:=ArrRandom(ReadInteger('n='),-5,10); D.Println;
  D.Where(t->not t.Between(2,7)).Sum.Println
end.

Пример
n= 15
9 -2 8 7 -3 -1 -1 6 7 10 5 0 2 6 -2
18