<font color=red><b>!!!</b></font>
Здравствуйте, Sanq4!
Результаты будем хранить в массиве. Массив содержит всего два индекса: TRUE и FALSE.
TRUE - количество положительных элементов.
FALSE - количество отрицательных элементов.<p><fieldset style=‘background-color:#EFEFEF; width:80%; border:red 1px solid; padding:10px;‘ class=fieldset><font color=red><i>inc(ms[a>=0]); - число ноль НЕ относится к положительным!

Следовательно правильная запись для данной задачи: <font color="green">if a=0 then else inc(ms[a>0]);</font></i>
-----
</font><font color=#777777 size=1><b>• Отредактировал: <a href=http://rusfaq.ru/info/user/14422 target=_blank>Gh0stik</a></b> (Академик)
<b>• Дата редактирования:</b> 27.05.2008, 23:20 (MCK)</font></fieldset>

Приложение:
const N = 5; {количество элементов последовательности} var ms: array [false..true] of integer; {массив результатов (счётчики)} i,a: integer; {вспомогательные переменные} begin ms[true]:=0; ms[false]:=0; {инициализация счётчиков} for i:=1 to n do begin readln(a); {считываем с клавиатуры целое число} inc(ms[a>=0]); {если число больше либо равно нулю, то индекс элемента массива принимает значение TRUE и увеличивает на единичку счётчик положительных чисел. В противном случае - выражение a>=0 принимает значение FALSE и увеличивается на единичку счётчик отрицательных чисел} end; writeln(‘Pologitelnih ‘,ms[true], ‘ otricatelnih ‘,ms[false]); {вывод результатов на экран} readln; end.