mod просмотрите 1 мин!

[--Sashok--]

var i,sum:integer;
begin

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

    if StrToInt(memo1.Lines[i]) mod 2=1 then
    begin
        sum:=sum+StrToInt(memo1.Lines[i]);
        Edit2.Text:=IntToStr(sum)
    end
    else
   Edit2.Text:='takih elementov net';
end;

Нужно всего лишь прописать так чтобы выводила программа суму парных елементов массива МЕМО. но оно выводит что т оне правильно простмотрите плиз..с мод и див плохо знаком работа в дельфи.

[VIK_aka_TOR]

var i,sum:integer;
flag : boolean;
begin
   false;
   sum:=0;
   for i:=0 to memo1.Lines.Count-1 do

    if (StrToInt(memo1.Lines[i]) mod 2)= 0 then
    begin
        sum:=sum+StrToInt(memo1.Lines[i]);
        flag := true;
    end;

if flag then
 Edit1.Text := IntToStr(sum);
    else
   Edit2.Text:='takih elementov net';
end;

[--Sashok--]

Спасибо, проверим!