1) вводится последовательность из n целых чисел. найти сколько в ней нулей. 2) вычислить сумму элементов последовательности 1+1/(1+2)+1/(2+3)++1/(n+(n+1))

1)
var
 res,N,x,i:integer;

begin
 res:=0;
 readln(N);
 for i:=1 to N do
 begin
  readln(x);
  if x = 0 then
   res:=res+1;
 end;
 writeln(res);
end.
2)
var
 i,n:integer;
 sum:real;

begin
 readln(n):
 sum:=1;//т.к. 1+{последовательность}
 for i:=1 to n do
 begin
  sum:=sum + 1 / ( i + (i+1) );
 end;
 writeln(sum);
end.