как обчислить количество мемо

[--Sashok--]

var i,sum,n:integer;
begin

   sum:=0;
   n:=0;
   for i:=0 to memo1.Lines.Count-1 do

    if StrToInt(memo1.Lines[i])>0 then
    begin
        sum:=sum+StrToInt(memo1.Lines[i]);
        Edit1.Text:=IntToStr(sum)
    end
    else
    if StrToInt(memo1.Lines[i])<0 then
    begin
        n:=n+StrToInt(memo1.Lines[i]);
        Edit2.Text:=IntToStr(n);
    e

нужно чтобы считало не суму отрицательны х значений а их количетсво

[MaxNik2009]

на вскидку:

var i,sum,n,iCount:integer;
begin

   sum:=0;
   n:=0;
   iCount:= 0; // в iCount будет храниться кол-во отрицательных чисел

   for i:=0 to memo1.Lines.Count-1 do

    if StrToInt(memo1.Lines[i])>0 then
    begin
        sum:=sum+StrToInt(memo1.Lines[i]);
        Edit1.Text:=IntToStr(sum)
    end
    else
    if StrToInt(memo1.Lines[i])<0 then
    begin
        Inc(iCount);
        n:=n+StrToInt(memo1.Lines[i]);
        Edit2.Text:=IntToStr(n);
    end;

p.s. код не проверял.писал на коленке.