Question

19. составить программу вычисления суммы элементов массива меньше 9

Answer 1

===== PascalABC.NET =====

begin

 var n := ReadInteger('Длина массива:');

 var (a, b) := ReadInteger2('Границы значений элементов [a, b]:');

 var V := ArrRandom(n, a, b);

 V.Println;

 Writeln('Искомая сумма равна ', V.Where(p -> p < 9).Sum)

end.