Дан массив из n элементов определить представляют ли элементы массива строгое чередование положительных и отрицательных чисел. (паскаль)например: 1, -4, 7, -9вычислить по типу -a*(-a)=aто есть произведение отрицательных чисел даёт положительный знак.

обозначим счетчики переменными kp(+) и km(-), так же возьмем переменную j:integer для осуществления цикла, так же необходим сам массив пусть будет a:array[1..20] of integer, содержит 20 элементов целого типа, приступим к набору программы.  

var  

j,km,kp:integer;  

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

begin  

km:=0;kp:=0; {обнулим счетчики}  

randomize; {запустим службу генерирования случайных чисел}  

for j:=1 to 20 do  

begin  

a[j]:=random(100)-50; {заполним массив случайными числами}  

writeln(' a[',j,']= ',a[j]); {напечатаем его}  

end;  

{далее перейдем к поиску элементов}  

for j := 1 to 20 do  

begin  

if a[j]<0 then km:=km+1;  

if a[j]>0 then kp:=kp+1;  

end;  

write('pologitel''nix: ',kp,'otricatel''nix: ',km);  

readln;  

end.