跪求解答 考试速进

program mmy
    implicit none
    integer::x(10)
    integer::i,min,max,p=0,t=0
    print*,"请输入十个数据："
    read*,(x(i),i=1,10)
    open(10,file="myf2.dat")
    write(10,"(<10>i3)")(x(i),i=1,10)
    close(10)
     min=1
     max=1
     do i=2,10
       if(x(min)>x(i))min=i
       if(x(max)<x(i))max=i
     end do
     print*,"最大数是：",x(max)
     print*,"最小数是：",x(min)
     do i=1,10
       if(mod(x(i),2)==0)then
         p=p+1
       else
         t=t+1
       end if
     end do
     print*,"奇数个数是：",t
     print*,"偶数个数是：",p
end