===== PascalABC.NET =====
begin
var n := ReadInteger('Число членов последовательности:');
var s := ReadSeqInteger('Вводите:', n)
.Where(p -> (p < 10) or (p > 50)).Sum;
Println('Сумма отобранных членов равна', s)
end.
===== PascalABC.NET =====
begin
var n := ReadInteger('Число членов последовательности:');
var s := ReadSeqInteger('Вводите:', n)
.Where(p -> (p < 10) or (p > 50)).Sum;
Println('Сумма отобранных членов равна', s)
end.