Для массива К из 12 действительных чисел определить число соседств из двух положительных чисел ...

program zz1;

const k = 12; / /задаем количество элементов в массиве

var i, p:integer; / / задаем переменные целого типа

a:array [1 ... k] of integer;

begin

for i:=1 to k do / / записываем в массив числа случайным образом

a[i]:=random (101) - 50;

for i:=1 to k do / /выводим массив на экран

write (a[i],' ');

writeln; / / переходим на новую строку для вывода ответа

for i:=1 to k-1 do

if (a[i] > 0) and (a[i+1] > 0) then p:=p + 1;

write (' в массиве количество положительных рядом стоящих элементов ', p);

end.