program min_max_array
      real x(1001),y(1001)
      n=1000
      xmin=-10
      xmax=10
      dx=(xmax-xmin)/n
      x(1)=xmin
      y(1)=(x(1)**3)*sin(x(1))
      ymax=y(1)
      ymin=y(1)
      do i=1,1001
        x(i)=xmin+(i-1)*dx
        y(i)=(x(i)**3)*sin(x(i)) 
        if(y(i)>ymax)ymax=y(i)
        if(y(i)<ymin)ymin=y(i)
      enddo
      write(*,*)'ymin=',ymin
      write(*,*)'ymax=',ymax
      end