Автор Тема: Помогите в составлении программы на Turbo Pascal,плиз!срочно!  (Прочитано 1479 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн Ymni4ka

  • Новичок
  • *
  • Сообщений: 5
    • Просмотр профиля
  Дан  одномерный  массив  А(N). Составить программу. Если все элементы этого массива (вектора) образуют геометрическую прогрессию, то найти среднее арифметическое элементов вектора кратных пяти.
 
  Заранее спасибо за внимание!  :)
« Последнее редактирование: 02 Ноября 2010, 13:32:34 от Ymni4ka »

Оффлайн testtest

  • Старожил
  • ****
  • Сообщений: 376
    • Просмотр профиля
Цитировать
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, думаю найдешь без проблем.