Дано целое число n и массив случайных положительных и отрицательных чисел T[1 ... n] (T[i]:=random (n) - n div 2) в массиве Т определить число соседств двух положительных чисел и двух чисел разного знака.

program zz1;

const n = 10;

var i, k, p:integer;

T:array [1 ... n] of integer;

begin

for i:=1 to n do

T[i]:=random (n) - n div 2;

for i:=1 to n do

write (T[i],' ');

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

for i:=1 to n-1 do

begin

if (T[i] > 0) and (T[i+1] > 0) then k:=k + 1;

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

end;

writeln (' число соседств двух положительных чисел = ', k);

write (' число соседств двух чисел разного знака = ', p);

end.