Нужен Яхык:Фортран. Требуется ввести одномерный вещественный массив

Question

Информатика: Нужен Яхык:Фортран. Требуется ввести одномерный вещественный массив фиксированной длины, состоящий из «N» элементов, где каждому студенту преподавателем будет задано свое конкретное значение

Ледяная_Роза · Accepted Answer

Хорошо, давайте начнем с решения задачи. Вот программа на Яхыке:Фортран, которая выполняет указанные требования:

fortran

program массив

    implicit none

    integer :: N

    real, allocatable :: arr1(:)

    integer :: i



    write(*,*) "Введите значение N:"

    read(*,*) N



    allocate(arr1(N))



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

    do i = 1, N

        read(*,*) arr1(i)

    end do



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

    do i = 1, N

        write(*,"(F5.1)", advance="no") arr1(i)

    end do

    write(*,*)



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

    do i = 1, N

        if (arr1(i) > 0.0) then

            write(*,"(F5.1)", advance="no") arr1(i)

        end if

    end do

    write(*,*)



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

    do i = 1, N

        if (arr1(i) < 0.0) then

            write(*,"(F5.1)", advance="no") arr1(i)

        end if

    end do



    deallocate(arr1)

end program массив

Для выполнения данной программы нужно ввести значение N, которое задано вашим преподавателем. Затем вы будете запрашивать ввод элементов массива. Программа выводит исходный массив в одну строку, положительные элементы на следующей строке и отрицательные элементы на отдельной строке.

Надеюсь, это поможет вам решить задачу. Если у вас возникнут вопросы или понадобится дополнительная помощь, пожалуйста, сообщите мне!

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

Ледяная_Роза

О проекте

Предметы

Задать вопрос

Привет!