program zadatak_4
        real:: suma_x = 0, suma_y = 0
        !prethodno moze da se napise i kao real suma_x,suma_y
        !suma_x = 0
        !suma_y = 0
        dimension a(100)
        print *, "Uneti dimenzije niza: "
        read *,n
        print *, "Uneti elemente niza:"
        read *,(a(i),i=1,n)
        result = 0
        print *,"Uneti vrednost za poredjenje:"
        read *, val
        call fun(a,n,result, val)
        do i=1,n
           print *,a(i)
        end do
        print *, "Trazeni rezultat je:"
        print *, result
        end


        subroutine fun(a,n, result,val)
         dimension a(*)
         suma_nep = 0
         count = 0
         do i=1,n
              if(mod(i,2) .eq. 1) then
                     suma_nep = suma_nep + a(i)
                     count = count + 1
              else
                     a(i) = 5
              endif

        end do
        mean = suma_nep / count
        result = 0
        if (mean > val) then
           result = 1
        else if(mean < val) then
           result = -1
        endif

        return
        end