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

Amina1225 Amina1225    2   02.06.2019 10:20    1

Ответы
АсяБру АсяБру  03.07.2020 07:26
Var a,s:integer;
begin
a:=0;
while a>=0 do begin
read(a);
if a>0 then s+=a;
end;
writeln(s);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика