экамен в субботу не допускают

[Margaritka88888]

1. Дан одномерный массив чисел В(13). Вычислить произведение отрицательных членов и сумму положительных.
2. Дана последовательность An и Е>0.
Найти первый член последовательности An, для которого |An-An-1|<E
An=1+1/1(3)+1/2(3)+1/3(3)+...

[Девочка-Скандал]

первая

p:=1;s:=0;
for i:=1 to 13 do begin
if b[i]<0 then p:=p*b[i]
else s:=s+b[i];

вторая ни разу не понятная

[Margaritka88888]

а первая должна такой маленькой быть??
а то у меня некоторые задачи ваще по листу...
назвать ее надо?