Работа с массивами

//---------------------------------------------------------------------------
#include <stdlib.h>
#include <math.h>
#include «Unit1.h»
//---------------------------------------------------------------------------
int i,n;
float a[25];
//---------------------------------------------------------------------------
   void __fastcall Tform1::FormActivate(Tobject *Sender)
{
Edit1->SetFocus();
 }
//---------------------------------------------------------------------------
 void __fastcall Tform1::Button1Click(Tobject *Sender)
{
 try
{n=StrToInt(Edit1->Text);
a[0]= StrToFloat(Edit2->Text);
a[1]= StrToFloat(Edit3->Text);
}
catch (EconvertError&)
{
ShowMessage(«Неправильно ввели значение, введите повторно»);
}
for (i=2; i<n;i++)     /* выстраиваем массив */
a[i]= a[i-1]+ 2/a[i-2];
for (i=0; i<n;i++)    /* выводим массив*/
Memo1->Lines->Add(“a[“+IntToStr(i)+”]=”+FloatToStrF(a[i],ffFixed,5,2)+” “);
//---------------------------------------------------------------------------
void __fastcall Tform1::Button2Click(Tobject *Sender)
{       int max, min, k;
        float sum=0.0;
if (CheckBox1->Checked == True)
{for (i=max=0;i<n;i++) {
  if (a[i]>a[max]) max=i;
  }
 Edit4->Text=FloatToStrF(a[max],ffFixed,5,2);
 }
if (CheckBox2->Checked == True)
{for (i=min=0;i<n;i++) {
  if (a[i]<a[min]) min=i;    }
 Edit5->Text=FloatToStrF(a[min],ffFixed,5,2);
 }
if (CheckBox3->Checked == True)
{for (i=0;i<n;i++)
{sum += a[i];}
sum = sum/n;
 Edit6->Text=FloatToStrF(sum,ffFixed,5,2);
 }
if (CheckBox4->Checked == True)
{for (i=k=0;i<n;i++) {
  if (a[i]>2 && a[i]< 5) k++;    }
 Edit7->Text=IntToStr(k);
 }
}
//---------------------------------------------------------------------------
void __fastcall Tform1::Button3Click(Tobject *Sender)
{
Edit1->Clear();    Edit2->Clear();   Edit3->Clear();   Edit4->Clear();
Edit5->Clear();    Edit6->Clear();   Edit7->Clear();   Memo1->Clear();
}
//---------------------------------------------------------------------------