Надо изменить только функцию! Есть все, только подправить Ввести некоторую последовательность действительных чисел

    double fun(double a[], int n, double &min, double &max)
{ double s=0; min=max=a[0];
for(int i=0; i<n; i++)
{ s+=a[i];
if(min>a[i]) min=a[i];
if(max<a[i]) max=a[i];
}
return s/n;
}
#pragma endregion
    private: System::Void button1_Click(System::Object^  sender, System::EventArgs^  e) {
int kol=0, i, j;
for(i=0; i<richTextBox1->Lines->Length; i++)
{ // Зчитування числа х з richTextBox1
double x=Convert::ToDouble(richTextBox1->Lines[i]);
if(x>=0) kol++; // kol – кількість елементів масиву
}
if(!kol) MessageBox::Show("Немає чисел з діапазону [60, 100]");
else
{ double *a = new double[kol]; // Оголошення динамічного масиву
// Вибірка елементів масиву з richTextBox1
for(i=j=0; i<richTextBox1->Lines->Length; i++)
{ double x=Convert::ToDouble(richTextBox1->Lines[i]);
if(x>=0) { a[j]=x; j++; }
             }
richTextBox2->Clear();
for(i=0; i<kol; i++) // Виведення елементів сформованого масиву
richTextBox2->AppendText(a[i].ToString()+"\n");
double sr, min, max;
sr=fun(a,kol,min,max); // Виклик функції
textBox1->Text=sr.ToString(); // Виведення результатів
textBox2->Text=min.ToString();
textBox3->Text=max.ToString();
delete []a; // Звільнення динамічної пам’яті
} }
};
}