Сумма элементов определенного индекса (массивы)

int mas[18]
{
int sum;
for (int i=0; i<=17; i++)
if (mas[i]%3==0)
sum+=i;

int mas[18]
{
int sum;
for (int i=0; i<=17; i++)
if (i%3==0)
sum+=mas[i];

void __fastcall TForm1::Button1Click(TObject *Sender)
{ float a[18];
int i;
for (i=0; i<=17; i++)
a[i]=StrToInt(Memo1->Lines->Strings[i]);
float S=0;
float Sa=0;
float Sap=0;
for (i=1; i<=17; i++)
if (i%3==0)
S=S+a[i];
for (i=1; i<=17; i++)
if (i%4==0)
Sa=Sa+a[i];
Sap=S-Sa;
Edit1->Text=FloatToStr(S);
Edit2->Text=FloatToStr(Sa);
Edit3->Text=FloatToStr(Sap);
}

// объявление подпрограммы
float summel (float * a);
// глобальные переменные
const nRaz=18; // чтобы можно было постоянно менять размерность массива
float a[nRaz];
float S=0;
float Sa=0;
float Sap=0;
// Обработчик события нажатия на кнопку
void __fastcall TForm1::Button1Click(TObject *Sender)
{
for (int i=0; i<=(nRaz-1); i++)
 {
 a[i]=StrToInt(Memo1->Lines->Strings[i]);
 // вызов подпрограммы
 summel (a);
 // вывод результатов на экран
 Edit1->Text=FloatToStr(S);
 Edit2->Text=FloatToStr(Sa);
 Edit3->Text=FloatToStr(Sap);
 }
}
// текст подпрограммы
 float summel(float * b)
  {
    // в текст программы не вникал, просто копипаст сделал
    for (int i=1; i<=17; i++)
    if (i%3==0) S=S+b[i];
    for (int i=1; i<=17; i++)
    if (i%4==0) Sa=Sa+a[i];
    Sap=S-Sa;
    return 1.0f;
  }