Cod sursa(job #109571)

Utilizator anakronOvidiu Porumb anakron Data 25 noiembrie 2007 11:56:38
Problema Pairs Scor 0
Compilator cpp Status done
Runda preONI 2008, Runda 1, Clasa a 10-a Marime 1.04 kb
#include <fstream>

using namespace std;

long long vc[10000000];

int main()
{
    long long a[100000];
    int i,j,k,n,contor=0,max=0,limita;
    ifstream fin("pairs.in");
    ofstream fout("pairs.out");
    

    fin>>n;
    for(i=0;i<n;i++)
      {
                    fin>>a[i];
                    if(max<a[i])
                      max=a[i];
      }
                      
    for(i=2;i<=max/2;i++)
      for(j=2;j*i<=max;j++)
         vc[i*j]=1;
                           
         
                           
        
    for(i=0;i<n;i++)
      if(vc[a[i]]==0)
        {
                     for(j=0;j<n;j++)
                       if(vc[a[j]]==0 && a[i]!=a[j] && a[j]!=0)
                          contor++;
                       else   
                         if(a[j]%a[i]!=0 && a[i]!=a[j])
                           contor++;
                      vc[a[i]]=1;
                      a[i]=0;
        }       
                    
                
          
      
    fout<<contor<<'\n';
    return 0;
}