Question

ПРОГРАММИРОВАНИЕ PASCAL (0,-1.9,2.9,7.5,-3,1.86,-1,-3.5,-0.5,5)
составить программу вычисления суммы элементов массива A значения которых принадлежат интервалу [-3,3] проверить работу программы на заданном участке A(10) ЗНАЧЕНИЯ СВЕРХУ

Answer 1

PascalABC.NET 3.4.2, сборка 1814 от 02.10.2018

Внимание! Если программа не работает, обновите версию!

begin

 ReadSeqReal('=>', ReadInteger('n=')).Where(t -> Abs(t) <= 3).Sum.Println

end.