Cod sursa(job #183521)

Utilizator stefynr8Space Monkey stefynr8 Data 22 aprilie 2008 12:30:38
Problema Secv Scor 0
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.71 kb
#include <stdio.h>

FILE *f,*g;

long i,j,n,k,v[5000],a[5000],h,min ;

int main()
{
 f=fopen("secv.in","r");
 g=fopen("secv.out","w");

 fscanf(f,"%d", &n);
 for (i=1;i<=n;i++)
     {
      fscanf(f,"%ld", &a[i]);
      v[i]=a[i];
      }

 for (i=1;i<n;i++)
     {
      for(j=i+1;j<=n;j++)
	 if(v[i]<v[j]) {     
			v[0]=v[j];
			v[j]=v[i];
			v[i]=v[0];
			}
      }

 i=1;
 for(j=2;j<=n;j++)
    {
     if(v[i]!=v[j]){
		    v[i+1]=v[j];
		    i++;
		    }
     }
 k=i;


 for(h=1;h<=n;h++)
     {
	if (a[h]==v[1])
	{
	  j=1; i=h;
	  while (i<=n && j<=k)
	   if (a[i]==v[j])j++;
	     else i++;
	  if (j>k)
	    if (min>i-h) min=i-h;
	  }
     }

 return 0;
 }