Maral
Maral

помогите решить задачу на тему одномерный массив в fortran

Дан массив B(m), m<=20. Все отрицательные элементы заменить нулями. Вывести на печать исходный массив, переформированный массив, а также сумму его элементов.

Заранее большое спасибо.

Ai
Aika

integer, parameter :: N=20
integer b(N)
read (*,*) b
print *,b
where (b<0)
b=0
end where
print *,b
print *,sum(b)
end

Похожие вопросы
Помогите решить задачу по паскаль. Одномерная матрица
Паскаль. Одномерный массив! Решите за денежку плиз!
Помогите решить задачу в С#(одномерные, двумерные массивы).
помогите решить задачу в с++ пожалуйста (( )): с генерировать одномерный массив.
Паскаль, одномерный массив. Помогите пожалуйста!!!!
помогите решить задачи по информатике на тему обработка одномерных массивов!!!
Помогите решить задачу на Java Одномерные массивы:
нужна помощь помогите в делфи решить одномерный массив
задача одномерный массив
Задача на одномерный массив