3 pamokėlė | 2 lygis | 2. Moliūgai

#include <fstream>
#include <iomanip>

using namespace std;

const char Cdfv[] = "Duomenys.txt";
const char Crfv[] = "Rezultatai.txt";
const int Cm = 100;

//funkciju prototipai
void Skaito (int & n, double A[], double & p1, double & p2);
double Vidurkis (double A[], int n);
void Atrinkti (double A[], int n, double p1, double p2, double A1[], int & nn);
void Raso1 (ofstream & fr, double s, double v);
void Raso (double A[], int n, double vid, double vidn);

int main()
{
    int n, nn;              //moliugu kiekiai
    double A[Cm], A1[Cm];   //moliugu svoriu masyvai
    double vid, vidn;       //vidutinis moliugo svoris
    double p1, p2;          //svorio reziai
    Skaito (n, A, p1, p2);
    vid = Vidurkis (A, n);
    Atrinkti (A, n, p1, p2, A1, nn);
    if (nn != 0)
        vidn = Vidurkis (A1, nn);
    else
        vidn = 0;
    Raso (A1, nn, vid, vidn);
    return 0;
}
//duomenu skaitymas is failo
void Skaito (int & n, double A[], double & p1, double & p2)
{
    ifstream fd(Cdfv);
    fd >> n >> p1 >> p2;
    for (int i = 0; i <= n; i++)
        fd >> A[i];
    fd.close();
}
//skaiciuoja vidutini moliugo svori
double Vidurkis (double A[], int n)
{
    double sum = 0;
    for (int i = 0; i < n; i++)
        sum += A[i];
    double vid = sum / n;
    return vid;
}
//atrenka moliugu svorius i nauja masyva
void Atrinkti (double A[], int n, double p1, double p2, double A1[], int & nn)
{
    nn = 0;
    for (int i = 0; i < n; i++)
    {
        if (A[i] >= p1 && A[i] <= p2)
        {
            A1[nn] = A[i];
            nn++;
        }
    }
}
//rezultatu rasymo i faila
void Raso (double A[], int n, double vid, double vidn)
{
    ofstream fr(Crfv);
    fr << "Visu moliugu vidutinis svoris: " << fixed << setprecision(3) << vid << " kg." << endl;

    if (n == 0)
    {
        fr << "I supirkima nera atrinktu moliugu." << endl;
    }
    else
    {
        fr << "I supirkima " << n << " atrinktu moliugu." << endl;
        fr << "Ju svorius sarasas: ";
        for (int i = 0; i < n; i++)
            fr << fixed << setprecision(3) << A[i] << " ";
        fr << endl;
        fr << "Vidutinis vieno moliugo svoris: " << fixed << setprecision(3) << vidn << " kg." << endl;
    }
    fr.close();
}