массивы

[mihailiuchev]

Дано целое число n и массив случайных положительных и отрицательных чисел T[1..n](T<i>:=random(n)-n div 2)</i>

в массиве Т определить число соседств двух положительных чисел и двух чисел разного знака.

[SNUPY]

var
  T: array[1..n] of real;
  i,j: integer;
begin
  j := 0;
  for i := 1 to n do
    T[i] := random(n) - n div 2;
  for i := 2 to n do
  begin
  if ((T[i-1]>0) and (T[i]>0)) or ((T[i-1]*T[i]<0)) then inc(j);
  end;
  writeln(inttostr(j));
end;