Spartach01
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
нужно написать новую последовательность,в которой КАЖДЫЙ четный член заменен суммой ВСЕХ предыдущих(ПЕРВОЙ ПОСЛЕДОВАТЕЛЬНОСТИ).
terminat0r,результат не получается,вот что пишет
program lab4
implicit none
integer, dimension(  , allocatable :: a, b
integer ::n,i,t
write (*,*)'vvedite kol-vo elementov massiva (n)'
read (*,*) n
allocate(a(n))
allocate(b(n))
do i=1,n
write (*,*) 'vvedite chislo[',i,']'
read (*,*) a(i)
if (mod(a(i),2)==0) then
do t=1,i-1
b(i)=b(i)+a(t)
end do
else
b(i)=a(i)
end if
end do
write (*,*) 'ishodniy massiv noviy massiv'
do i=1,n
write (*,*) a(i) , b(i)
end do
deallocate(a)
deallocate(b)
end
vvedite kol-vo elementov massiva (n)
5
vvedite chislo[ 1 ]
1
vvedite chislo[ 2 ]
2
vvedite chislo[ 3 ]
3
vvedite chislo[ 4 ]
4
vvedite chislo[ 5 ]
5
ishodniy massiv noviy massiv
1 1
2 -842150450
3 3
4 -842150445
а так ты все правильно понял,я тоже понимаю,но не знаю как задать.Можете еще помочь) |
