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

#include <vcl.h>
#include <memory>
#include <StrUtils.hpp>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    std::auto_ptr<TStringList> list(new TStringList);
    list->LoadFromFile("123.txt");
    double c=0.0;
    int b=0;
    TStringDynArray arr(SplitString(list->Text, L" "));
    for (int i = 0; i < arr.Length; i++)
        {
          if(arr[i]>0)
          {
              c+=StrToInt(arr[i]);
              b++;
          }
        }
       ShowMessage("Среднее арифметическое положительных чисел равно: "+ FloatToStr(c/b));
 
 
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
      double SummNumbers = 0;
      int CountNumbers = 0;
      std::auto_ptr<TStringList> L(new TStringList);
      L->LoadFromFile("123.txt");
      L->DelimitedText=L->Text;
      for(int i = 0;i<L->Count;i++)
        if(StrToFloat(L->Strings[i]) > 0)
        {
            SummNumbers+=StrToFloat(L->Strings[i]);
            CountNumbers++;
        }
      if(CountNumbers > 0)
        ShowMessage("Среднее арифметическое положительных чисел равно: "+ FloatToStr(SummNumbers/CountNumbers));
      else
        ShowMessage("Чисел удовлетворяющих условиям программы не найдено");
}

TStringDynArray arr(SplitString(list->Text, L" "));

    std::ifstream file("d:\\test\\floats.txt");
    std::stringstream ss;
 
    if (file)
    {
        ss << file.rdbuf();
        file.close();
    }
    std::vector<double> v;
    double x;
 
    while (ss >> x)
        if (x > 0) v.push_back(x);
 
    double mean = std::accumulate(v.begin(), v.end(), 0.0) / v.size(); // можно проверить на v.size() > 0, если что
    ShowMessage(FloatToStr(mean));

    std::ifstream input("d:\\test\\floats.bin", std::ios::in | std::ios::binary);
    std::vector<double> v;
 
    input.seekg(0, std::ios::end);
    std::streampos sz = input.tellg();
    input.seekg(0, std::ios::beg);
 
    size_t buf_sz = sz / sizeof(double);
    double *buff = new double[buf_sz];
 
    input.read(reinterpret_cast<char*>(buff), sz);
    v.insert(v.end(), &buff[0], &buff[buf_sz]);
    v.erase( std::remove_if(std::begin(v), std::end(v), [](int v) {return v < 0;}), std::end(v) );
 
    free(buff);
 
    double mean = std::accumulate(v.begin(), v.end(), 0.0) / v.size();
    ShowMessage(FloatToStr(mean));

#include <vcl.h>
#include <StrUtils.hpp>
#include <System.IOUtils.hpp>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    double c=0.0;
    int b=0;
    TStringDynArray arr(SplitString(TFile::ReadAllText(L"123.txt"), L" "));
    for (int i = 0; i < arr.Length; i++)
        {
          if(arr[i]>0)
          {
              c+=StrToInt(arr[i]);
              b++;
          }
        }
       (b > 0) ? ShowMessage("Среднее арифметическое положительных чисел равно: "+ FloatToStr(c/b)) : ShowMessage("Среднее арифметическое положительных чисел равно: "+ FloatToStr(b));
}
//---------------------------------------------------------------------------