Помогите пожалуйста написать программу на алгоритмическом языке ФОРТРАН.

Question

Дан массив A(m), m<10. Вывести на печать номера тех элементов, которые меньше числа X=13. Заменить эти элементы числом X. Вывести на печать исходный и переформированный массивы.

На ФОРТРАН 77

На ФОРТРАН 77

Catherine · Accepted Answer

integer,parameter ::m=10 
integer x,a(m) 
x=13 
read (*,*) a 
print *,a 
do i=1,m 
 if (a(i).lt.X) a(i)=X 
end do 
print *,a 
end