Ricerca sequenziale della posizione di un numero.

[Pasquale90]

Buonasera,

è la prima volta che inserisco una discussione su questo forum e inoltre sono un neofita in programmazione.
Sto lavorando in fortran ,il mio prof ha chiesto un algoritmo per la ricerca sequenziale della posizione di un numero.
Io ho provato a creare l'algoritmo l'avvio funzione, cioè non sono presenti errori ma mi restituisce sempre lo stesso valore, che è lo zero.
Vi riporto circa il mio algoritmo.

program ricercasequenziale
integer::n,pos,i
real:: elenco (50)
real:: x
read*, n
pos=0
i=1
do
if (elenco(i)==x) then
pos=i
end if
i=i+1
if (pos/=0 .or. i>n) exit
end do
print*, pos
end


Spero vivamente in una risposta.

Cordiali saluti.

[torn24]

Non conosco il linguaggio fortran, ma non mi sembra che l'array sia inizializzato, e neanche la variabile x. Quindi i tuoi confronti nell if() su che valori pensi si basino ?