Cod sursa(job #9705)

Utilizator kaesarioDumi Loghin kaesario Data 27 ianuarie 2007 16:45:32
Problema Secventa 5 Scor 0
Compilator c Status done
Runda Unirea 2007, clasele 11-12 Marime 0.57 kb
#include <stdio.h>
#define MAX 1000

int main()
{
 	long n, i, j, k, l, nd, ns, a[MAX], u, v, ok;
 	FILE *f=fopen("secv5.in","rt");
 	fscanf(f,"%li %li %li", &n, &u, &v);
 	for (i=0; i<n; i++)
 	 fscanf(f, "%li", a+i);
    fclose(f);
    ns=0;
 	for (l=u; l<=n; l++)
 	 for (i=0; i<=n-l; i++)
 	 { nd=l;
       for (j=i; j<i+l; j++)
       { ok=1;
 		for (k=j-1; k>=i && ok; k--)
		  if (a[k]==a[j]) nd--, ok=0; 
	    }	
	   if (u<=nd && nd<=v) ns++;
     }
     f=fopen("secv5.out","wt"); 
     fprintf(f, "%li\n", ns);
     fclose(f);
     return 0;
}