Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - Олимпиады

Страница: 1 |

 

  Вопрос: Задачка Добавлено: 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-сайт: sharpc.livejournal.com
 Профиль | | #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-сайт: domkratt.com
 Профиль | | #3
Добавлено: 18.03.08 20:48
Стыдись, человек =)

Ответить

Номер ответа: 4
Автор ответа:
 Sharp


Лидер форума

ICQ: 216865379 

Вопросов: 106
Ответов: 9979
 Web-сайт: sharpc.livejournal.com
 Профиль | | #4
Добавлено: 19.03.08 10:56
:)

Ответить

Страница: 1 |

Поиск по форуму





© Copyright 2002-2011 VBNet.RU | Пишите нам