Вывести порядковый номер элемента массива C++ Builder - C++ - Ответ 4326053

#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
float a[10]={0} ;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
static int i = 0;
if (Edit1->Text=="")
{
ShowMessage("Введите число");
return;
};
if(i < 10)
{
a[i] = StrToFloat(Edit1->Text);
   Edit1->Text = "";
Edit1->SetFocus();
ListBox1->Items->Add("a["+IntToStr(i+1)+"] = "+FloatToStr(a[i++]));
 
}
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button2Click(TObject *Sender)
{
 float max;
for (int i = 0; i < 10; i++)
{
if(a[i] > max) max = a[i];
}
ListBox1->Items->Add("Максимальный элемент = " + FloatToStr(max));
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button3Click(TObject *Sender)
{
Randomize();
ListBox1->Items->Add("Згенерированый массив");
for (int i=0;i<10;i++)
{
a[i]=rand()%100-50;
ListBox1->Items->Add("a["+IntToStr(i+1)+"] = "+FloatToStrF(a[i],ffGeneral,3,3));
}
}
 
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button4Click(TObject *Sender)
{
ListBox1->Items->Clear();
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Edit1KeyPress(TObject *Sender, System::WideChar &Key)
{
if (((Key<'0')||(Key>'9'))&&(Key!=VK_BACK)&&(Key!=','))
{
 Key=0;
 ShowMessage("Вводите цифры!");
}
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button5Click(TObject *Sender)
{
float n=0;
 
float min=0;
for (int i = 0; i < 10; i++)
//for (int i = 0; i < n; i++)
{
if(a[i] < min)
min = a[i];
 
}
ListBox1->Items->Add("Минимальный элемент = " + FloatToStr(min));
ListBox1->Items->Add("Номер элемента -  " + FloatToStr(n));
}