プログラミングの練習ならよいけれど

oddcount <- function(x){ # 奇数の数をカウントする
    k <- 0　
    for(n in x){
        if (n%%2 == 1) k<- k+1　# %%は剰余
    }
    return(k)
}
x <- sample(500, 1000, replace=TRUE)
oddcount(x)

以下で十分

length(x[x%%2])

sum(x%%2) で十分と書こうと思ったら既にコメントが付いていた..（呵々大笑）