Автор Ёергей Арустамов задал вопрос в разделе Другие языки и технологии
Напишите программу в фортране. ( с подпрограммами ) subroutine.... и получил лучший ответ
Ответ от Алекс Куха[гуру]
А множества С и Р не совпадают, то что X=C? Не понял. что означают индексы max(Ci,Pj). В С заменяется элемент, если нашёлся больший из Р, а, если их больше одного, то на какой заменять?
нпрм С={1,2,3,4,5} P={12,54,84,-1,48,5,556,-48,51,10} Какое д. б. множество Х?
На какой заменить единицу (1й элемент) из подмножества {12,54,84,48,5,556,51,10} - первый по списку (12)?
Немного корявая логика получается
integer c(5)/1,2,557,44,5/,x(5)
integer p(10)/12,54,84,11,48,-1,556,-48,52,10/
irez=0
do i=1,5
call subpr(c(i),x(i),p,irez)
if (irez==1) exit
end do
if (irez==0) PRINT *,x
end
subroutine subpr(c,x,p,irez)
integer c,x,p(10)
x=c
do i=1,10
if (c==p(i)) then
irez=1
exit
end if
end do
if (irez==0) then
do i=1,10
if (c.lt.p(i)) then
x=p(i)
exit
end if
end do
end if
end
!НА выходе 12 12 557 54 12
ЗЫ Делать мне точно не чего