Дан одномерный числовой массив. Определить в нём число соседств двух чисел разного знака. (Паскаль ABC)

// PascalABC.NET 3.1, сборка 1250 от 28.05.2016 begin   var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;   Writeln('Число соседств пар чисел разного знака равно ',     a.Pairwise.Where(x->x[0]*x[1]<0).Count) end. Тестовое решение n= 15 7 4 42 -46 12 -34 -58 -49 56 46 -20 30 -22 2 -74 Число соседств пар чисел разного знака равно 9