Question

Дана последовательность чисел
Найти сумму чисел меньше 10 или больше 50
Написать программу на языке Паскаль

Информатика 9 класс срочно

Answer 1

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

begin

 var n := ReadInteger('Число членов последовательности:');

 var s := ReadSeqInteger('Вводите:', n)

     .Where(p -> (p < 10) or (p > 50)).Sum;

 Println('Сумма отобранных членов равна', s)

end.