algoritmo selectionsort in linguaggio fortran90, spero che qualcuno di santa pazienza, mi indichi dove ho sbagliato.
Vi riporto il codice
- Codice:
program main
real:: a(100),key,k
integer:: i,j,n
print*, "inserire ordine array"
read*, n
print*, "inserire elementi array"
do i=1,n
read*, a(i)
end do
do i=1,n
k=a(i)
j=i
do
j=j+1
key=a(j)
if (key<k) then
k=key
end if
if (j==n) exit
end do
a(i)=k
end do
print*, "stampa elementi array ordinato"
do i=1,n
print*, a(i)
end do
end
in particolare mi da il seguente errore
- Codice:
inserire ordine array
1
inserire elementi array
1
Exception: Access Violation
Traceback: not available, compile with -ftrace=frame or -ftrace=full
Buona serata.