Cod sursa(job #654759)

Utilizator dutzulBodnariuc Dan Alexandru dutzul Data 30 decembrie 2011 21:26:45
Problema Hashuri Scor 0
Compilator cpp Status done
Runda Arhiva educationala Marime 0.81 kb
#include <fstream>
#define m 3833
using namespace std;
ifstream f("bete2.in");
ofstream g("bete2.out");
int H[m][30],i,n,v[3004],j,val,rez;
int bag(int x)
{
        int R,t=0;
        R=x%m;
        for(; t<=20; t++) if (H[R][t]==0)  break;
        H[R][t]=x;
}

int main()
{
        f>>n;
        for(i=1; i<=n; i++) {
                f>>v[i];
                bag(v[i]);
        }

        for(i=1; i<n; i++)
                for(j=i+1; j<=n; j++) {
                        val=v[i]+v[j];


                        int R,t=0,S=0,y;
                        y=val;
                        R=y%m;
                        for(; t<=20; t++) if (H[R][t]==y) S++;
                        rez+=S;
                }
        g<<rez<<'\n';


        f.close();
        g.close();
        return 0;
}