Дано целое число n и массив случайных положительных и отрицательных чисел

Вновь конкурсы...

Точно, конкурсы. Правда не помню какой. Но пару лет вспять решал такую задачку. Попробую вспомнить

Конкурсы не стоит решать, они - нарушение Верховодил и подлежат удалению.

Не стоит поощрять "хитро...умных", которые Вашим разумом получать заслуги хотят

Const n = 100;
var
  a: array[1..n] of real;
  i,j,k: integer;
begin
  writeln('Число элементов в массиве (klt;=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]gt;0) and (a[i]gt;0) or (a[i-1]*a[i]lt;0) then j:=j+1;
  end;
  writeln(j);
end.