Напишите программу пожалуйста Ввести одномерный массив A из 11 элементов. Определить в...

Question

Напишите программу пожалуйста
Ввести одномерный массив A из 11 элементов. Определить в нём
сумму элементов, значения которых лежат вне диапазона [−1; 5].

Answer 1

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

begin
  var b:=ReadArrInteger('->',11);
  Writeln('S=',b.Where(x->(x<-1) or (x>5)).Sum)
end.