обозначим счетчики переменными 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.
in by e in sbdjshsisbdhdhd