:D
А задачу написать? Я же не провидец, и не знаю что у тебя там за рабочая тетрадь
Немного криво, но думаю, что понятно
Корова, рагу, проволка, дереве, а вот последнее затрудняюсь. может романы
<em>// PascalABC.NET 3.2, сборка 1431 от 28.04.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
(var s,var p):=(int64(0),BigInteger(1));
foreach var x in ReadSeqIntegerWhile(k->k<>0) do
if x>0 then s+=x
else p*=x;
Writeln('S=',s,', П=',p)
end.
<u>Пример</u>
24 -15 -42 18 35 -14 7 0 12 -206 138 -232 0
S=84, П=-8820
<em>Замечание:</em> числа 12 -206 138 -232 0 после нуля введены намерено, чтобы показать, что отсечение приема данных происходит по первому нулю.