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

Question

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

Aika · Accepted Answer

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