z<-c()
N<-100000
v<-seq(0,1000,by=0.5)
r<-rnorm(N)
for(x in v){
  y<-1.1*x+(1000-x)*exp(0.1+0.2*r)
  if((sum(y<900)/N)<0.01)
    z[x]=1
}
which(z==max(z))

同学输出的结果是492，可是我的是integer（0），请问这是为什么呀？