Пусть у нас:
Код:
var
A: Array [0..99] of integer;
Count: integer;
i: integer;
Тогда после ввода массива количество отрицательных чисел можно посчитать так:
Код:
Count:=0;
for i:=0 to 99 do
begin
if A[i]<0 then inc(Count)
end;
edit2.Text:=IntToStr(Count);