Как сделать подсчет количества положительных и отрицательных чисел в Delphi 6?

Чтобы подсчитать количество положительных и отрицательных чисел в Delphi 6, можно использовать следующий код: ru.stackoverflow.com

for i:=0 to n for j:=0 to m begin   if a[i,j]=>0 then pol=pol+1 else otr=otr+1; end; 

Ещё один пример кода для подсчёта количества отрицательных элементов: delphisources.ru

function NegativeItemsCount(A : Array Of Integer) : Integer; var I : Integet; begin   Result := 0;   For I := Low(A) To High(A) Do     If A[i] < 0 Then Inc(Result); end; 

В эту функцию можно передавать любые одномерные целочисленные значения, а на выходе получать число — количество элементов, значение которых меньше 0. delphisources.ru