Помогите в составлении программы на Turbo Pascal,плиз!срочно!

[Ymni4ka]

  Дан  одномерный  массив  А(N). Составить программу. Если все элементы этого массива (вектора) образуют геометрическую прогрессию, то найти среднее арифметическое элементов вектора кратных пяти.
 
  Заранее спасибо за внимание!  

[testtest]

Turbo Pascal

элементов вектора

странно всё это.

вкратце так:
1. находишь q = A[1] / A[0].
2. проверяешь это для всех элементов, т.е. q == A[2] / A[1], q == A[3] / A[2], ..., q == A[N-1] / A[N-2].
3. если выполняется для всех элементов, значит мы имеем дело с геометрической прогрессией.
4. ну среднее арифметическое элементов с номерами, кратными 5, думаю найдешь без проблем.