意载：弄了好久，终于能读入数据了， data=readLines('stdin',) a=as.numeric(data[[1]]) x=strsplit(data[[2]],' ') x=as.numeric(x[[1]]) if(sum(x)%%a!=0){  r=-1 }else{   t<-x%%2   if(all(t==1)|all(t==0)){    x.mean=mean(x)    y=sum(x[x>x.mean]-x.mean)    r=y/2    if(r%%1!=0){      r=-1      }   } } r 但是不知道为什么通过case为0%