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

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;

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

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. 5