Замена всех элементов меньших среднего геометрического на 0

@rembo52 · Регистрация: 01.02.2011

Студворк — интернет-сервис помощи студентам

замена всеъ элементов меньших среднего геометрического на 0. Среднее геометрическое чисел a1,a2,....an - это (a1,a2...an)^1/n ( кароче говоря корень n)

@MegaAce · 05.02.2011, 23:27

Pascal

g:=1;
for i:=1 to n do
 g:=g*a[i];
g:=exp(ln(g) * (1/n));
for i:=1 to n do
 if a[i]<g then a[i]:=0;

@rembo52 · 05.02.2011, 23:41 **[ТС]**

спасибо конешно , но ничего не понятно)

@SuPeR XaKer · 05.02.2011, 23:58

Держи.
Описание, объявление и заполнение массивов (матриц)
Учись.

@rembo52 · 06.02.2011, 23:49 **[ТС]**

что такое exp?

@Puporev · 07.02.2011, 08:16

http://tpdn.ru/guide/pf/exp/

@rembo52 0 / 0 / 0 Регистрация: 01.02.2011 Сообщений: 34
		1
	Замена всех элементов меньших среднего геометрического на 0 05.02.2011, 22:59. Показов 547. Ответов 5 Метки нет (Все метки) замена всеъ элементов меньших среднего геометрического на 0. Среднее геометрическое чисел a1,a2,....an - это (a1,a2...an)^1/n ( кароче говоря корень n) 0

@rembo52 0 / 0 / 0 Регистрация: 01.02.2011 Сообщений: 34
	05.02.2011, 23:41 [ТС]	3
	спасибо конешно , но ничего не понятно) 0

@SuPeR XaKer 2857 / 1986 / 788 Регистрация: 23.09.2010 Сообщений: 4,877
	05.02.2011, 23:58	4
	Держи. Описание, объявление и заполнение массивов (матриц) Учись. 1

@rembo52 0 / 0 / 0 Регистрация: 01.02.2011 Сообщений: 34
	06.02.2011, 23:49 [ТС]	5
	что такое exp? 0

@Puporev Почетный модератор 64279 / 47578 / 32739 Регистрация: 18.05.2008 Сообщений: 115,182
	07.02.2011, 08:16	6
	http://tpdn.ru/guide/pf/exp/ 0

Опции темы