До ть скласти блок-схему за зразко..
Program Example_314_2;
Uses crt;
Const N=100;
Type Masiv = array[1..N] of real;
Var A:Masiv; {A - масив для зберігання даних чисел}
i,count:byte; {і - змінна циклу, count - кількість сусідств}
Begin
Randomize;
Clrscr;
count:=0;
For i:=1 to N do
Begin A[i]:=random*100-random*50; {Заповнення масиву випадковими дійсними числами}
Write(A[i]:8:2); {Виведення масиву на екран для контролю правильності роботи
програми}
End;
For i:=1 to N-1 do
Begin If (A[I]<0) and (A[I+1]>0) or (A[I]>0) and (A[I+1]<0) then count:=count+1;
End;
Writeln;
Writeln('Кількість заданих сусідств ',count); Readkey; {Затримка зображення на екрані} End.