Составить схему алгоритма и проект программы для вычисления элементов одномерного массива из 15 элементов

#include <math.h>
double A[15]; int i;
//---------------------------------------------------
// Вычисления элементов вектора
void_fastcall TForm1::Button1Click (TObject *Sender)
{ Memo1->Clear();
   for (i=0; i<15; i++)
   { A[i]=log10(i+1)+tan(pow(2.,i+1));
      Memo1->Lines->Add(FormatFloat(“0.000”, A[i]));
   }
}
//----------------------------------------------------
// Минимальный элемент
void_fastcall TForm1::Button2Click (TObject *Sender)
{ double min=A[0]; int=0;
   for(i=1; i<15; i++)
      if(min > A[i]) { min=A[i]; ind=i; }
   Edit1->Text=FormatFloat(“0.000”, A[ind]) + “индекс – “ + IntToStr (ind+1);
}

  void_fastcall TForm1::Button2Click (TObject *Sender)
    { double min=A[0]; 
       for(i=1; i<15; i++)
          if(min > A[i]) min=A[i]; 
       Edit1->Text=FormatFloat(“0.000”, min);
    }

     void_fastcall TForm1::Button2Click (TObject *Sender)
    { int ind=0; 
       for(i=1; i<15; i++)
          if(A[ind] > A[i]) ind=i; 
       Edit1->Text=FormatFloat(“0.000”, A[ind]) + “индекс – “ + IntToStr (ind+1);
    }