Cod sursa(job #9583)

Utilizator danckaCotelea Daniela dancka Data 27 ianuarie 2007 16:18:35
Problema Secventa 5 Scor 10
Compilator cpp Status done
Runda Unirea 2007, clasele 11-12 Marime 0.55 kb
#include<fstream.h>
ifstream f("secv5.in");
ofstream g("secv5.out");
 unsigned long a[100];
unsigned long b[100],n;
void init(int k);
 int main()
 {
  int i,j,m,nr=0,U,L;
  f>>n>>L>>U;
  for(i=1;i<=n;i++)f>>a[i];
  for(i=1;i<=n;i++)
  { init(i);b[i-1]=0;
	  for(j=i;j<=n;j++)
   {
     int k;
     b[j]=b[j-1]+1;
     for(k=i;k<j;k++)
      if(a[k]==a[j])b[j]=b[j-1];
   }
   for(j=i;j<=n;j++)
    if(b[j]<=U&&b[j]>=L)nr++;
   }
   g<<nr<<'\n';
f.close();
g.close();
return 0;
}
void init(int k)
{
 int i;
 for(i=k;i<=n;i++)b[i]=1;
}