Fortran: Подпрограмма типа Function: написать функцию вычисления минимального из чётных элементов массива

[shewlett]

Программа работает, но нужна подпрограмма типа Function. Понятия не имею как её можно изменить. Кто может помочь?
P.S: Программа считает минимальный из чётных элементов массива. (Fortran)

  integer a(100),i,n,min,q
1 print*
  write(*,6)
6 format ('n=',\)
  read*,n
  print*
  print*, 'Kolichestvo ementov ishodnogo massiva:'
  do 2 i=1,n
  write (*,11)i
11 format (i2,'-i element massiva=',\)
  read*,a(i)
2 continue
  min=a(2)
  do 3 i=2,n,2
  if (a(i).GT.min) goto 5
  min=a(i)
3 continue
5 continue
  print*
  write(*,8)min
8 format ('Minimalniy is chetnih elementov=',i4,\)
  print*
  print*
  print*,'Dlya zavershenia raboti vvedite 0'
  print*,'Ostatsya v programme- vvedite 1'
  read*,q
  if (q.NE.0) goto 1
  end

[ViktorR]

Читаем, например тут:
http://en.wikibooks.org/wiki/Fortran..._and_functions
или тут:
http://malex13.narod.ru/f/f008.htm
По аналогии переносим кусок кода из своей программы, вроде как этот подходит:

min=a(2)
  do 3 i=2,n,2
  if (a(i).GT.min) goto 5
  min=a(i)

Естественно с нужными исправлениями:
- функция должна вернуть минимальный элемент из чётных элементов массива;
- аргумент функции должен быть ссылкой на массив.


Как-то так, ...
PS: Знал другой Фортран, и это было очень давно, что ...

[Vago]

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

Программа работает

И что ж она выдаст при n = 1 ?

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

Программа считает минимальный из чётных элементов массива.

Чётных элементов или элементов с чётными индексами?