Matematicamente.it

Buongiorno,

in allegato è presente il codice sorgente dell'algoritmo, insertion sort "cioè ci sto provando, a farlo funzionare", ma non va, potreste indicarmi, dove è l'errore, vi ringrazio in anticipo.
Il linguaggio è il fortran.

Codice:

program main
integer:: i,j,n
real:: a(100),k,t
read*, n
do i=1,n
read*, a(i)
end do
do i=2,n
k=a(i)
j=i-1
if (a(i)>k) then
a(j+1)=a(j)
j=j-1
end if
a(j+1)=k
end do
do i=1,n
print*, a(i)
end do
end

Cordiali saluti.

if (a(i)>k) then

a(j) ....

Grazie quinzio,

ho corretto, ora va.

Ciao