Обработка массива.

        float array[15];
 
        // генерирую массив вещественных чисел от 1 до 4
        randomize();
        for ( int i = 0; i < 15; i++ )
        {
                array[i] = 1 + 3.0 * random(10000) / 9999.0;
        }
 
        // вывожу в Мемо
        Memo1->Clear();
        Memo1->ScrollBars = ssVertical;
        Memo1->Lines->Add("Исходный массив:");
        for ( int i = 0; i < 15; i++ )
        {
                Memo1->Lines->Add(array[i]);
        }
 
        // ищется минимальный элемент
        float min_value = 99999;
 
        for ( int i = 0; i < 15; i++ )
        {
                if ( array[i] < min_value )
                {
                        min_value = array[i];
                }
        }
 
        // выводится в Мемо минимальный элемент
        Memo1->Lines->Add("");
        Memo1->Lines->Add("Минимальный элемент:");
        Memo1->Lines->Add(min_value);
 
 
        // ищется максимальный элемент
        float max_value = 0;
 
        for ( int i = 0; i < 15; i++ )
        {
                if ( array[i] > max_value )
                {
                        max_value = array[i];
                }
        }
 
        // выводится в Мемо максимальный элемент
        Memo1->Lines->Add("");
        Memo1->Lines->Add("Максимальный элемент:");
        Memo1->Lines->Add(max_value);
 
 
        // если масимальное значение больше минимального в 3 раза, то
        // увеличиваем значение элементов массива в 3 раза
        Memo1->Lines->Add("");
        Memo1->Lines->Add( AnsiString().sprintf("Значение макс. элемента больше минимального в %f раза", max_value/min_value) );
        Memo1->Lines->Add("");
        if (max_value/min_value < 3)
        {
                Memo1->Lines->Add("Увеличиваем значения каждого элемента в 3 раза...");
                Memo1->Lines->Add("");
                Memo1->Lines->Add("Конечный массив:");
 
                for ( int i = 0; i < 15; i++ )
                {
                        array[i] *= 3;
 
                        // вывод в Мемо
                        Memo1->Lines->Add(array[i]);
                }
        }
        else
        {
                Memo1->Lines->Add("Увеличение значений элементов массива не требуется");
        }

//поиск максимального
int imax = 0;
for(i=1;i<N;i++)
    if(A[i]>A[imax])
        imax = i;
 
//поиск минимального
int imin = 0;
for(i=1;i<N;i++)
    if(A[i]<A[imin])
        imin = i;
 
//вывод макс A[imax] и мин A[imin] элементов массива 
...
 
//если макс элемент больше минимального в 3 раза
if(A[imax]/A[imin]==3)
{
       //умножаем все элементы на 3    
       for(int i=0;i<N;i++)
        A[i] *= 3;
        
        //вывод всех элементов
}