Cod sursa(job #9706)

Utilizator sylvya456Rausanu Silvia sylvya456 Data 27 ianuarie 2007 16:45:40
Problema Secventa 5 Scor 0
Compilator cpp Status done
Runda Unirea 2007, clasele 11-12 Marime 0.51 kb
#include<stdio.h>
#include<conio.h>
FILE *f=fopen("secv5.in","r");
FILE *g=fopen("secv5.out","w");
void main()
{int i,j,k,t,nr,p=0,l,n,u,ok,v[100];
 fscanf(f,"%d %d %d",&n,&l,&u);
 for(i=1;i<=n;i++)
  fscanf(f,"%d",&v[i]);
 for(i=l;i<=n;i++)
  for(j=1;j<=n;j++)
    {nr=0;
	for(k=j;k<=j+i-1;k++)
	{ ok=1; if(k<=n){
	   for(t=j;t<k;t++)
	    if(v[t]==v[k] ) {ok=0;break;}  }
	  else { ok=2;break;}
	  if(ok) nr++;
		else if (ok==2) nr=0;}
	if(nr>=l && nr<=u) p++;
   }
fprintf(g,"%d",p);
fcloseall();}