Нааишите программу которая в последовательности натуральных чисел определяет суммк...

Question

Нааишите программу которая в последовательности натуральных чисел определяет суммк положительных чисел помогите быстрей

Comments

Программа получает на вход количество чисел в последовательности а затем сами числа

---

Помоги ьыстрей

Answer 1

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

begin
  Writeln('S=',ReadSeqInteger('->',ReadInteger('n=')).Where(x->x>0).Sum)
end.

Пример
n= 10
-> 15 -20 0 18 34 -11 -7 14 11 18
S=110