Нужен Яхык: Фортран. Нужно создать одномерный вещественный массив фиксированной длины, состоящий из N элементов

Яхык: Фортран.
Описание:
Для создания одномерного вещественного массива фиксированной длины, состоящего из "N" элементов, можно использовать следующий код на Яхыке: Фортран:

fortran

program Main

    implicit none

    integer :: N, i

    real, dimension(:), allocatable :: arr



    ! Ввод длины массива N

    write(*,*) "Введите длину массива N:"

    read(*,*) N



    ! Выделение памяти для массива

    allocate(arr(N))



    ! Ввод элементов массива

    write(*,*) "Введите элементы массива:"

    do i = 1, N

        read(*,*) arr(i)

    end do



    ! Вывод исходного массива

    write(*,*) "Исходный массив:"

    do i = 1, N

        write(*,*) arr(i)

    end do



    ! Вывод положительных элементов

    write(*,*) "Положительные элементы:"

    do i = 1, N

        if (arr(i) > 0) then

            write(*,*) arr(i)

        end if

    end do



    ! Вывод отрицательных элементов

    write(*,*) "Отрицательные элементы:"

    do i = 1, N

        if (arr(i) < 0) then

            write(*,*) arr(i)

        end if

    end do



    ! Освобождение памяти

    deallocate(arr)



end program Main

Пример:

Введите длину массива N:

5

Введите элементы массива:

1.2

-3.4

5.6

-7.8

9.0

Исходный массив:

1.200000

-3.400000

5.600000

-7.800000

9.000000

Положительные элементы:

1.200000

5.600000

9.000000

Отрицательные элементы:

-3.400000

-7.800000

Совет:
Чтобы лучше понять код, важно запомнить следующие ключевые концепции:
- `allocate` и `deallocate` используются для выделения и освобождения памяти соответственно.
- `do` и `end do` используются для организации цикла.
- `if` и `end if` используются для условной проверки.

Дополнительное задание:
Создайте Яхык: Фортран программу для создания одномерного вещественного массива размером 10 элементов. Выведите сначала исходный массив, затем все положительные элементы, а после этого все отрицательные элементы.