请问一下，我想对数组p找出其最大值，并且输出其位置，不过不知道为什么找位置的时候出现了p(1)=0呢？



dimension p(10)
    integer p,t
    read(*,*)(p(i),i=1,10)----比如说输入一组数字/9，5，6，9，5，9，6，9，9，6/
    t=0
    n=0
    do 10 i=1,10
    if(p(i).ge.t)then
     m=p(i)
    p(i)=t
    t=m
    endif
10    continue
    write(*,'(i16)')t---------找到了最大值




    do 20 i=1,10
    write(*,*)p(i)---------为什么此处的p(1)=0呢？？？也就是说，如果第一个数是最大值，则这个第一的位置并没有输出来

    
    if(p(i).eq.t)then
    
    n=i

    write(*,'(i15)')n---------输出其位置
    
    endif

20    continue    

    end
    
谢谢大家的热心回复