В массиве из 12 целых чисел

Программа в массиве из 12 целых чисел находит наибольший и наименьший элементы и меняет их местами. Нужно что-бы программа в массиве из 12 целых чисел наименьший элемент меняла его местами с последним элементом.
#include<iostream>
#include<math.h>
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
int val[12],minb,maxb,minbVal,maxbVal,k;
void __fastcall TForm1::Button1Click(TObject *Sender)
{
ListBox1->Items->Clear();
//очистка листбокс1
for(int i=0;i<=11;i++){val[i]=StrToInt(Memo1->Lines->Strings[i]);}
//считывание переменных
minb=val[0]; for(int i=1;i<=11;i++){if(val[i]<minb){minb=val[i];minbVal=i;}}
//проверка минимального
maxb=val[0]; for(int i=1;i<=11;i++){if(val[i]>maxb){maxb=val[i];maxbVal=i;}}
//проверка максимального
k=val[minbVal];
//временная переменная = минимальное
val[minbVal]=val[maxbVal];
//минимальное = максимальное
val[maxbVal]=k;
//макссимаьное = временная переменная
for(int i=0;i<=11;i++) {ListBox1->Items->Strings[i]=IntToStr(val[i]);}
//вывод в листбокс
}
1 ответ

Нужно что-бы программа в массиве из 12 целых чисел наименьший элемент меняла его местами с последним элементом.
//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
int A[12],i, min,nom;
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 min=0;
 for(i=0; i<12; i++)
 {
  A[i]=StrToInt(Memo1->Lines->Strings[i]);
 
   if(A[i]<min)
   {
     min = A[i];
     nom = i;
   }
 }
 A[nom]= A[11];
 A[11]=min;
  for(int s=0; s<12; s++)
  {
   Memo1->Lines->Strings[s]= Memo1->Lines->Strings[s]+"  "+ IntToStr(A[s]);
  }
 
 ShowMessage("Наименьшее = "+IntToStr(min));
 
}
//---------------------------------------------------------------------------