2011 VBE Piršitnių poros (SPRENDIMAS)

#include <iostream>
#include <stdlib.h>
#include <fstream>
#include <iomanip>
using namespace std;
const char Cdf[] = "mokiniai.txt";
const char Cfd[] = "rez.txt";
const char Csf[] = "ugiai.txt";
const int Cmax = 100;
const int Cpav = 20;

struct Pirstines {
  //failo skaitymui
  int Sk1; // Vieta pirmam skaičiui iš failo
  int Sk2; // antram skaičiui
  int Sk3; // trečiam skaičiui
  bool used;
};
//funkcijos

void Skaityti (Pirstines A[], int & n)
{
    ifstream fd(Cdf);
    fd >> n;
    for(int i = 0; i < n; i ++)
    {
        fd >> A[i].Sk1 >> A[i].Sk2 >> A[i].Sk3;
        A[i].used = false;
    }
    fd.close();
}

void Spausdinti (int a, int b, int c, int d)
{
    ofstream fs(Cfd);
    fs<<"Vyrų pirštinių poros: "<<a<<endl;
    fs<<"Moterų pirštinių poros: "<<b<<endl;
    fs<<"Vyrų atliekamos pirštinės : "<<c<<endl;
    fs<<"moterų atliekamos pirštinės : "<<d<<endl;
    fs.close();
}


// kiek yra piršinių vyriškos ir moteriškos lyties.
int KiekYraPirstiniu(Pirstines A[], int n, int m)
{
    int c = 0;
    for(int i = 0; i < n; i++)
    {
        if(A[i].Sk1 == m)
        {
            c++;
        }
    }
    return c;
}

int PirstiniuPoros (Pirstines A[], int n,int m)
{
    int b = 0;
        for(int i = 0; i < n; i ++)
        {
           for(int j = i + 1; j < n; j++)
           {
                if(A[i].Sk3 == A[j].Sk3 && A[i].Sk1 == m && A[j].Sk1 == m && A[i].Sk2 != A[j].Sk2 && (!A[i].used && !A[j].used))
                {
                    b++;
                    A[i].used = true;
                    A[j].used = true;
                    break;
                }

           }
        }
    return b;
}
int main()
{
    int n; // pirsšiniu skaičius
    int v = 3; int m = 4; // indeksai vyru ir moteru
    int d = 2, k = 1;
    int mot, vyr; // išviso piršinių kiek yra viriškos lyties ir keik moteriškos.
    int motp,vyrp; // vyriškų porų ir moteriškų porų piršinių sk.
    int atliekV,atliekM; // vyrų ir moterų atliekamos pirštinės
    Pirstines A[Cmax];
    Skaityti(A,n);
    mot  = KiekYraPirstiniu(A,n,m);
    vyr = KiekYraPirstiniu(A,n,v);
    motp = PirstiniuPoros(A,n,m);
    vyrp = PirstiniuPoros(A,n,v);
    atliekM = mot - motp * 2;
    atliekV = vyr - vyrp * 2;
    Spausdinti(vyrp,motp,atliekV,atliekM);
    return 0;
}