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

Методика решения: Создаем цикл через фор..то   от 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.