![]() |
|
Модераторы: Poseidon |
![]()
|
|
| karim99 |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 4 Регистрация: 13.5.2006 Репутация: нет Всего: нет |
Написать программу для вычисления среднего гармонического Mn=n/(1/a1+1/a2+...+1/an) , ai не равно 0.[code=delphi]
Вот фрагмент текста, не могу только динамически ввести массив и переменную n const a: array[1..10] of integer = (1,2,3,4,5,6,7,8,9,10); var i,n:Integer; res:Real; begin n:=10; res:=0; for i:=1 to n do res := res + (1/a[i]); res := n/res; p.s. Я понял, почему тему мою закрыли, прошу прощения...Буду выкладывать по отдельности. Вторую я сделал, вот с остальными пока проблемы... |
|||
|
||||
![]()
|
| Правила форума "Центр помощи" | |
|
|
ВНИМАНИЕ! Прежде чем создавать темы, или писать сообщения в данный раздел, ознакомьтесь, пожалуйста, с Правилами форума и конкретно этого раздела.
Более подробно с правилами данного раздела Вы можете ознакомится в этой теме. Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Poseidon, Rodman |
| 0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
| 0 Пользователей: | |
| « Предыдущая тема | Центр помощи | Следующая тема » |
|
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |