Дана последовательность чисел содержится 1-но отрицательное число найти сумму элементов этой последовательности до 1-го отрицательного числа решите пожалуйста )))

Question

Дана последовательность чисел содержится 1-но отрицательное число найти сумму элементов этой последовательности до 1-го отрицательного числа решите пожалуйста )))

Гость

Ответ(ы) на вопрос:

Accepted Answer

var a,s:integer; begin a:=0; while a>=0 do begin read(a); if a>0 then s+=a; end; writeln(s); end.