Дан массив.нужно посчитать количество положительных и отрицательных элементов.

Методика решения:
Создаем цикл через фор..то   от 0 до длины массива -1
В  цикле ифом проверяем знак числа (>=0|<0)
Если больше то прибавляем единицу к переменной счетчику 
Если меньше то к другой переменной.
ПОСЛЕ цикла выводим обе переменные.

Var a:array [1..10]of integer; I, j, plus,minus: integer; Begin Plus:=0; Minus:=0; For i:=1 to 10 do begin Read ( a [ I ] ); If a[ I ] >0 then plus :=plus+1; If a [ i]<0 then minus:=minus+1; End; Writeln (plus, minus); End.