Cod sursa(job #109899)

Utilizator tudalexTudorica Constantin Alexandru tudalex Data 25 noiembrie 2007 12:55:06
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

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

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

int main()
{
	 freopen("pairs.in","r",stdin);
	  freopen("pairs.out","w",stdout);

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

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

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

		  return 0;
}