Нужна помощь по языку Фортран

[GGfromthesky]

Не получается решить две задачки по АЯП, помоги если не трудно:
1) Дана последовательность из N действит. чисел. Вычислить обратную величину произведения элементов, принадлежащих отрезку от 1 до 2

И если не лень, то помогите ещё с этой :
Написать программу которая находит сумму степенного ряда в узлах на исследуемом интервале и срвнивает результат с соответствующим значением функции в этой точке. РЕзультат занести в таблицу.

заранее спасибо

[B_N]

      IMPLICIT NONE

      INTEGER(2), PARAMETER :: N=100                             ! Задаем размер массива

      INTEGER(4), DIMENSION(1:8) :: SEED
      REAL(8), DIMENSION(1:N) :: ARRAY
      REAL(8) :: PRODUCT
      INTEGER(4) :: I, COUNT

1001  FORMAT(A,I0.4,A,F10.5,'  (',E20.10,')')
1002  FORMAT(A,E20.10)

C
C Заполняем массив случайными числами
C
      I = 8
      CALL SYSTEM_CLOCK(SEED(1))
      CALL RANDOM_SEED(SIZE=I)
      CALL RANDOM_SEED(PUT=SEED(1:8))
      CALL RANDOM_NUMBER(ARRAY)

      DO I = 1, N
          ARRAY(I) = (ARRAY(I) - 0.5) * 10
      END DO
C
C Случайную последовательность сформировали, начинаем считать
C
      PRODUCT = 1
      COUNT = 0
      DO I = 1, N
          IF (ARRAY(I) >= 1 .AND. ARRAY(I) <= 2) THEN
      	      COUNT = COUNT + 1
      	      PRODUCT = PRODUCT *ARRAY(I)
      	      WRITE (*,1001), "ARRAY(", I,")=", ARRAY(I), ARRAY(I)
          END IF
      END DO
C
C Выводим результаты
C
      IF (COUNT > 0) THEN 
          PRODUCT = 1 / PRODUCT
          WRITE (*,1002),"ОБРАТНАЯ ВЕЛИЧИНА ПРОИЗВЕДЕНИЯ: ",PRODUCT
      ELSE 
          WRITE (*,"(A)") "НЕ НАЙДЕНО ПОДХОДЯЩИХ ЧИСЕЛ"
      END IF

      END

Сообщение от GGfromthesky

И если не лень, то помогите ещё с этой :
Написать программу которая находит сумму степенного ряда в узлах на исследуемом интервале и срвнивает результат с соответствующим значением функции в этой точке. РЕзультат занести в таблицу.

Лень. И даже условие не понятно. Какого ряда, на каком интервале...

[GGfromthesky]

Спасибо большое, надеюсь поможет ^^

[McNomarr]

УМОЛЯЮЮЮЮЮЮЮЮЮЮЮ!!!!!!!!!!!!!!!
Вопрос жизни и смерти, помогите решить задачку по программированию. Пишу как написано в карточке:
дан вещественный вектор X(x(1),x(2),....,x(n)). Требуется циклически сдвинуть вектор на определенное число позиций (которое мы должны подобрать) так чтобы X(x(l+1), x(l+2), x(n), x(1), x(2), x(l)).
то что в скобках написано это индексы
заранее спасибо

[Rashka90]

Помогите с решением...(срочно)
Программа состоит из Гл. программы и подрограммы
в гл. программе нужно выяснить принадлежит ли точка с координатами х и у внутренней области круга радиусом R с координатами X0 и Y0,
а в под программе проанализировать 8 точек взятых из двумерного массива P(8,2). Радиус и координаты круга вводит с клавиатуры.