ChemEng NTUA - forum Χημικών Μηχανικών ΕΜΠ

!Program Bubble Sort
program Bubble_Sort
implicit none
real help
real,allocatable:: A(:)
integer:: i,j=0,n
write(*,*)'Dose mou to plithos twn arithmwn pou thes na sou topothetisw se auksousa taksi'
read(*,*) n
allocate(A(n))
write(*,*)'Dose mou tous arithmous sou'
read(*,*) (A(i),i=1,n)
do while (j<n-1)
do i=1,n-1
if (A(i)>A(i+1)) then
help=A(i)
A(i)=A(i+1)
A(i+1)=help
exit
else
j=j+1
endif
enddo
enddo
write(*,*)'Oi arithmoi,taksinomimenoi einai:',(A(i),i=1,n)

end program