Вычислить сумму элементов массива, значение которых превышает среднее арифметическое (исправить ошибки)

[gavori]

размер масива 18, тип данных действительный. Задача 'вычислить суму элементов масива, значение которых превышает средний арифметический' В БИЛДЕРЕ


C++
void __fastcall TForm1::Button1Click(TObject *Sender)
{ float s, s1;
Memo2->Clear();

int A[18]; int i;
s=0 ;
s1=0;
for (i=1;i<=18;i++) s += mas[i] ;
A[i]=StrToInt(Memo1->Lines->Strings[i]);

s /= 18.0 ;
s1=0 ;
for (i=1;i<=18;i++)
if (mas[i] >s ) s1 += mas[i];
Edit1->Text=IntToStr(mas);

}
ошибка из-за mas и s1. ХЕЛП.

[digitalis]

1. Откуда взялось не описанное нигде mas[] ?
2. Сначала массив надо заполнить, а потом считать среднее.
3. Индексы в массиве и Memo1->Lines->Strings[i] - с нуля.
4. Действительные числа никогда не меняли фамилию на int.
5. При таком построении сначала заполняют Memo1, а потом тискают Button1. Логично было бы заполнять массив из Edit. Но это уж - кому как.
100500 раз всем говорю: читайте правила, прежде чем постить. И поймёте тогда, что такое форматирование текста и что такое теги CODE.
Надёргано из разных источников, а голову решено не включать (из экономии) ?

void __fastcall TForm1::Button1Click(TObject *Sender)
{
float s, s1;

float A[18]; int i;
s=0 ;
for (i=0;i<18;i++)
  {
    A[i]=StrToFloat(Memo1->Lines->Strings[i]);
    s += A[i] ;
   }

s /= 18.0 ;
s1=0 ;
for (i=0;i<18;i++)
     if (A[i] > s ) s1 += A[i];
Edit1->Text=FloatToStr(s1);
}