такая задача: дан одномерный массив из 18 элементов, надо найти произведение элементов первой половины массива, а вторую половину инвертировать (поменять местами девятый с восемнадцатым, десятый с семнадцатым и тд) помогите решить пожалуйста! произведение легко находится а вот как вторую половину инвертировать?  
заранее спасибо!

Если считать, что массив называется A и индексы меняются от 1 до 18, то произведение ищется так:

а инвертирование делается так:

где i - переменная типа integer. Да, это в случае, если "вторая половина" действительно начинается с 9-го элемента (вообще-то должна с 10-го). 

ой, мы такими операторами не пользовались еще, нужно составить программу в примитивном виде через оператор do
например произведение так будет: 
n=18 
p=1 
do i=1, n/2
p=p*a(i)
end do
! а в этой части программы нужно инвертировать вторую половину (только как??!)
и вывести массив на экран до инвертирования и после )

Добавлено через 2 минуты и 12 секунд
ээ... и кстати да вторая половина с десятого элемента а не с девятого (ошибочка в первом посте)

Без forall можно так:



Это сообщение отредактировал(а) BakinEugene - 19.11.2011, 09:28