program izpise_stevilo_nicel
integer a(10),i,k
print*,'vnesi 10 stevil'
read*,a
k=0
do i=1,10
if(a(i).eq.0) k=k+1
enddo
print*,'stevilo nicel=',k
end