Исправить ошибку

[Rphoenix]

Задача: Дана целая квадратная матрица. Сформировать массив из суммы четных элементов каждой строки матрицы.
Сделал проект, но выводит ерунду. Помогите исправить.
Massiv.rar

[Stilet]

У тебя работа с целыми а не с вещественными задана:

void __fastcall TForm1::Button1Click(TObject *Sender)
{
int x;
for (int i=0; i<5; i++)
{
  for (int j=0; j<5; j++)
    {
       x=StrToInt(StringGrid1->Cells[j][i]);
       if (x%2) A[i]+=x;
    } Memo1->Lines->Add(IntToStr(A[i]));
}
}

[Rphoenix]

Исправил, на if (x%2==0) и заработало! Спасибо за помощь.