Cod sursa(job #625665)

Utilizator Cristina94Cristina Ungurean Cristina94 Data 25 octombrie 2011 10:36:08
Problema Pairs Scor 20
Compilator cpp Status done
Runda r1 Marime 0.5 kb
#include <stdio.h>
int a[100000],n,i,j,k,l;
 
int cmmdc(int x,int y)
{
	int b;
	if ( x % y==0) 
		b=y;
	else 
		b=cmmdc(y, x % y);
	return b;
}
 
int main()
{
	freopen("pairs.in","r",stdin);
	freopen("pairs.out","w",stdout);
	scanf("%d",&n);
	for (i=1;i<n+1;i++) 
		scanf("%d",& a[i]);k=0;
	for (i=1;i<n;+i++)
		for (j=i+1;j<n+1;j++)
			if (a[i]<a[j]) 
				if(cmmdc(a[j],a[i])==1) 
					k++;
				else;
			else 
				if(cmmdc(a[i],a[j])==1)
					k++;
	printf("%d",k);
	return 0;
}