с помощю масивов создать програму

[tetu115]

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

[Arigato]

Без всяких массивов:

ReadLn(old);
count := 0;
for i := 2 to n do begin
  ReadLn(a);
  if (old > 0) and (a > 0) then
    Inc(count);
  old := a;
end;

[type_Oleg]

Соседство

 if (a[i]>0)and(a[i+1]>0)then // и т.д.

Это - если с массивами.

[tetu115]

можете создать програму полностью, задание - в с помощю масивов

[Vanta11a]

Тебе её уже создали. Объяви переменные, обвяжи в стандартные команды и все.

[Arigato]

Сообщение от tetu115

задание - в с помощю масивов

Если принципиально наличие массивов (хотя они тут совсем не нужны), то просто замени в моем коде a на a[i].