| Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате |
| Форум программистов > Центр помощи > Массивы - Делфи6 |
| Автор: karim99 15.5.2006, 18:48 |
| Написать программу для вычисления среднего гармонического 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. Я понял, почему тему мою закрыли, прошу прощения...Буду выкладывать по отдельности. Вторую я сделал, вот с остальными пока проблемы... |