void zadacha6b(ifstream& f)
{
    int c,j=-1,i,z,n,l=0,h;
    n = lengthoffile(f);
    double* s = new double[n];
    f.seekg(0);
    for (i = 0; i < n; i++)
    {
        f >> z;
        s[i] = z;
    }
    for (i = 0; i < n; i++)
    {
        if (s[i] == 0)
            l++;
    }
    double* m = new double[l - 1];
    for (i = 0; i < l - 1; i++)
    {
        m[i] = 0;
    }
    double* S = new double[l - 1];
    {
        for (i = 0; i < l - 1; i++)
            S[i] = 0;
    }
    for (i = 0; i < l-1; i++)
    {
        h = 0;
        j++;
        while (s[j] != 0)
        {
            m[i] = m[i] + s[j];
            j++;
            h++;
        }
        m[i] = m[i] / h;
    }
    for (i = 0; i < l - 1; i++)
        cout << m[i] << " ";
    cout << "\n";
    j = -1;
    for (i = 0; i < l - 1; i++)
    {
        h = 0;
        j++;
        while (s[j] != 0)
        {
            S[i] = S[i] + (s[j]*s[j]-m[i]*m[i]);
            j++;
            h++;
        }
        S[i] = S[i] / h;
    }
    for (i = 0; i < l - 1; i++)
        cout << S[i] << " ";
}