Дана целая квадратная матрица. Сформировать массив из суммы четных элементов каждой строки матрицы

double A[100];
//...
for (int i=0; i<10; i++)
{
  for (int j=0; j<10; j++)
    {
       if (!(a % 2)) A[i]=A[i]+StrToFloat(StringGrid1->Cells[j][i]);
    }
}

if(i % 2 == 0)

void __fastcall TForm1::Button1Click(TObject *Sender)
{
Memo1 -> Clear();
Memo2 -> Clear();
int n,m,i,j,a[10][10], g, k;
String x;
n=StrToInt (Edit1->Text);
m=StrToInt (Edit2->Text);
 for(i=0;i<=n-1;i++)
{x=" ";
 for(j=0;j<=m-1;j++)
{a[i][j]=random(10);
x=x+" "+IntToStr(a[i][j]);}
Memo1->Lines->Add(x);}
for(i=0;i<=n-1;i++)
{k=0;
for(j=0;j<=m-1;j++)
if(i % 2 == 0)k++;
if(k<0)for(g=0;g<=m-1;g++)
a[i][g]=0;}
for(i=0;i<=n-1;i++)
{x=" ";
 for(g=0;g<=m-1;g++)
{
x=x+" "+IntToStr(a[i][g]);}
Memo2->Lines->Add(x);}
}

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==0) A[i]+=x;
    } Memo1->Lines->Add(IntToStr(A[i]));
}
}