Даны натуральное число n, действительные числа a1,a2,...,an. В последовательности a1, a2,...,an определить число соседств двух положительных чисел.

begin
  var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
  Writeln('Соседств: ',a.Pairwise.Where(x->((x[0]>0) and (x[1]>0))).Count)
end.


n= 15
38 -48 -9 22 -40 -18 9 30 -17 -23 4 -36 16 29 -16
Соседств: 2