#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,r ,t;for(;fscanf #define A abs(C[c]-P) (stdin,"%i%*c",p)==1;p++,n++)if(*p>m #define R(z) if(P==0||t