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

program zz1;const k = 12; //задаем количество элементов в массивеvar i, p:integer; // задаем переменные целого типаa:array [1..k] of integer;beginfor 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 doif (a[i] > 0) and (a[i+1] > 0) then p:=p + 1;write(\' в массиве количество положительных рядом стоящих элементов \', p);end.