Дано целое число n и массив случайных положительных и отрицательных чисел t[1..n](t[i]: =random(n)-n div 2)в массиве т определить число соседств двух положительных чисел и двух чисел разного знака.

Const n = 100;
var
  a: array[1..n] of real;
  i,j,k: integer;
begin
  writeln('Число элементов в массиве (k<=100)');
  readln(k);
  j := 0;
  for i := 1 to k do
    a[i] := random(101) - 50;
  for i := 2 to k do
  begin
  if (a[i-1]>0) and (a[i]>0) or (a[i-1]*a[i]<0) then j:=j+1;
  end;
  writeln(j);
end.