Задача на вектор Опции

[PascalIsNotMine]

Помогите PPPPLLLLIZZZZZZZZ!

Определить в данном векторе Р(m) количество пар соседних чисел,
являющихся противоположными.

Полный тупняк.

[volvo]

count := 0;
for i := 1 to m - 1 do
  if P[i] = - P[i + 1] then inc(count);

Очень сложно?

[PascalIsNotMine]

count := 0;
for i := 1 to m - 1 do
  if P[i] = - P[i + 1] then inc(count);

Очень сложно?

Нет, если кроме этой заморочек больше нет.

[PascalIcNotMine]

Как задать массив отрицательными значениями с помощью Random.
А то выдаёт ошибку 76.

[klem4]

randomize;
a := random(21) - 10;

а в интервале от -10 до 10