#include #include int main () {int C [1000 ]={0 }, #define l for(c =\ 0,t= 0; c\ < n ; c ++ ) *p=C,G =0 ,P =0,S=0 ,c,m=0,n=0,t ;for(;fscanf #define A abs(C[c]-P) (stdin,"%i%*c",p)==1;p++,n++)if(*p>m #define R( z) if (! P|| t< z)z=t; )m=*p;for(;P