Если исходная последовательность с1...с5 не содержит ни одного элемента значения которого совпадают со значениями какого либо элемента в последовательности р1...р10, то задать значения элемента х1...х5 по правилу х1 =max(Ci,Pj)
А множества С и Р не совпадают, то что 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
ЗЫ Делать мне точно не чего
⇢