Нааишите программу которая в последовательности - вопрос №7654842 от arlashmanov 08.04.2023 07:53

Question

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

arlashmanov · Answer

// 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