At the university I went to, all intro to CS classes were taught in a functional language: Scheme for the standard intro classes and SML/Haskell for the honors intro classes. I imagine that this true at a significant number of universities.