Горислав
4 год назад
нааишите программу которая в последовательности натуральных чисел определяет суммк положительных чисел Пожалуйста посчитайте быстрей
ОТВЕТЫ
Venedikt
Oct 24, 2020
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
244
Смежные вопросы:
