Question

дана последовательность чисел,заканчивающаяся нулем. найти сумму отрицательных и произведение положительных чисел. Напишите в паскале

Answer 1

program a;
var i,s,r:integer;
begin
s:=1;
read(i);
while i<>0 do 
begin
if (i<0)and(i<>0) then r:=r+1 else s:=s*i;
read(i);
end;
writeln(s,r);
end.

Answer 2

да, все*

Answer 3

program abc;
var a,k,i,min,z:integer;c:real;
begin
min:=30000;
c:=1;
read(a,k);
if a>0 then
begin
for i:=1 to k do
begin
z:=i;
c:=c+1/z;
if (c>a)and(c<min)then min:=i;
end;
writeln('min',min);
end;
end.

Answer 4

ps:если честно это примерно что нужно если контроль пример то проверь

Answer 5

спасибо)

Answer 6

если контрольный есть пример то проверь