Паскаль ABC. Прошу помочь написать программу.

[Helen1]

Даны: натуральное число n, действительные числа a1,a2...an. В последовательности a1,a2...an определить число соседств: двух положительных чисел.

[Sciv]

И в чем Вам нужна помощь? Хоть что-нибудь сделали/пытались сделать?

[Mad_Cat]

c:=0;
for i:=2 to n do
if (a[i]>0)and(a[i-1]>0) then inc(c);

[Helen1]

пыталась.. но совсем не так, как в коде, который написал Mad_Cat. Очень плохо разбираюсь в написании программ на паскале АВС.. Прошу помощи... Буду очень признательна, если поможете.

[Sciv]

Ну вот Вам продолжение кода Mad_Cat'a:

const n=10;                     {константой - число элементов}
var c,i: integer;                {объявляем переменные}
    a: real;
begin                               {начало программы}
  for i:=1 to n do ReadLn(a[i]);  {Ввод n элементов}

{Далее вышеприведенный код, решающий задачу}

  c:=0;
  for i:=2 to n do
  if (a[i]>0) and (a[i-1]>0) then inc(c);  {(c)Mad_Cat}

  {и вывод числа соседств}

  WriteLn(c);
  ReadLn;
end;

[Helen1]

for i:=1 to n do ReadLn(a[i]);

выводится ошибка: переменная не является именем массива.

[Sciv]

Тьфу ты ж черти полосатые! Моя опечатка, надо ее так объявлять:

    a: array [1..n] of real;

[Helen1]

программа запускается. только не могу понять суть задачи(что нужно вывести). Ввожу массив, после 10-го числа массива выводится число "9".

[Sciv]

Нужно вывести количество пар одинаковых чисел, стоящих рядом, например:

122233456789999

имеет 6 пар

в Вашем случае Вы, видимо, вводите такой массив, который содержит 9 пар.

[Mad_Cat]

Нужно вывести количество пар одинаковых чисел

почти)
Нужно вывести количество пар положительных чисел

1 2 -1 2 3 4 -2 -3 -5 6 - тут 3 пары [1,2] [4,5] [5,6]