Cod sursa(job #109654)

Utilizator Darth_NiculusIvan Nicolae Darth_Niculus Data 25 noiembrie 2007 12:16:15
Problema Pairs Scor 20
Compilator cpp Status done
Runda preONI 2008, Runda 1, Clasele 11-12 Marime 0.55 kb
#include <stdio.h>

#define NMAX 100001
#define _fin  "pairs.in"
#define _fout "pairs.out"

int i,n,A[NMAX],Rez,j;

int cmmdc(int x, int y)
{
 int t;
 while (y != 0)
      {
       t=y;
       y=x%y;
       x=t;
      }
}

int main()
{
 freopen(_fin,"r",stdin);
 freopen(_fout,"w",stdout);

 scanf("%d",&n);
 for (i=1;i<=n;i++)
    scanf("%d",&A[i]);
 Rez=0;

 for (i=1;i<=n-1;i++)
 for (j=i+1;j<=n;j++)
    if (cmmdc(A[i],A[j])==1)
      Rez++;

 printf("%d\n",Rez);

 fclose(stdin);
 fclose(stdout);
 return 0;
}