aas.f90

! Created by EverLookNeverSee@GitHub on 5/25/20.
! This program sorts a sequence in ascending order.

program aas
    implicit none
    ! declaring variables
    integer :: n, i, j
    real :: temp
    real, allocatable, dimension(:) :: sequence
    ! getting user input in order to specify number of elements in sequence.
    n = -1
    do
        print *, "Enter the number of elements in the sequence:"
        read *, n
        if (n > 0) exit
    end do
    ! allocating memory for array
    allocate(sequence(n))
    ! getting elements of sequence from user input
    do i = 1, n
        print *, "Element number", i, "is:"
        read *, sequence(i)
    end do
    ! Compare two elements sequence(i) and sequence(j) (i < j).
    ! If a i > a j swap the two elements.
    do i = 1, n - 1
        do j = i + 1, n
            if (sequence(i) > sequence(j)) then
                temp = sequence(j)
                sequence(j) = sequence(i)
                sequence(i) = temp
            end if
        end do
    end do
    ! printing sorted sequence.
    print *, sequence
end program aas