| Вопрос: Задачка | Добавлено: 18.03.08 14:43 |
Автор вопроса:  Henta | Web-сайт: sphere-guild.com | ICQ: 314369 |
|
Помогите решить простенькую задачку
Ввести одномерный массив a={2.35,-4.15,0,-3.1, 7.8, 6.3,-3.05,1.5}.
Собственно оплачу в разумных пределах.
Найти и вывести среднее геометрическое положительных элементов массива a и индекс элемента, наиболее близкого к среднему геометрическому. |
| Ответы | Всего ответов: 4 |
|
Номер ответа: 1 Автор ответа:  Sharp Лидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #1 | Добавлено: 18.03.08 18:49 |
|
Оплачивать сюда:
WebMoney E281932482454 R216832714837 U401132497668 Z293789663650 Яндекс.Деньги 4100188240149 dim n as integer, c as integer, cli as integer, i as integer
dim a(100) as double, x as double, p as double, avg as double input n for i = 1 to n input x a(i) = x next p = 1.0 for i = 1 to n if a(i) > 0 then p = p * a(i) c = c + 1 print p, c end if next avg = p ^ (1 / c) cli = 1 for i = 2 to n if abs(a(cli) - avg) > abs(a(i) - avg) then cli = i next print "Geom. average = "; avg; "; closest elem. index = "; cli |
||
|
Номер ответа: 2 Автор ответа: VβÐUηìtВопросов: 246 Ответов: 3333 |
Web-сайт: Профиль | | #2 | Добавлено: 18.03.08 20:44 |
ржунимагу!!!!!!!!!!
 )))))))))))
|
||
|
Номер ответа: 3 Автор ответа:  Администратор ICQ: 278109632 Вопросов: 42 Ответов: 3949 |
Web-сайт: Профиль | | #3 | Добавлено: 18.03.08 20:48 |
|
Стыдись, человек
|
||
|
Номер ответа: 4 Автор ответа: SharpЛидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #4 | Добавлено: 19.03.08 10:56 |
|
|
||
Страница: 1 |