Найти среднее геометрическое значение элементов массива

@Deny_Doberman · Регистрация: 16.07.2012

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

2.Составить программу, формирующую одномерный массив из N элементов
( N- натуральное число) следующим образом: Cos 1, cos^2 2, cos^3 3, cos^4 4 , …. , cos^n n. Найти среднее геометрическое значение элементов массива.
Пожалуйста помогите

@Puporev · 29.07.2013, 08:46

Сообщение от Deny_Doberman

Найти среднее геометрическое значение элементов массива.

Элементы как положительные, так и отрицательные, поэтому найти среднее геометрическое всех элементов найти нельзя, только положительных, например здесь написано
http://ru.wikipedia.org/wiki/%... 0%BE%D0%B5

Средним геометрическим нескольких положительных вещественных чисел...

Если знаете как найти для всех, расскажите, переделаем программу.

Pascal

uses crt;
const nmax=100;
var a:array[1..nmax] of real;
    n,i,j,k:integer;
    s,sg:extended;
begin
clrscr;
randomize;
repeat
write('Размер массива до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Исходный массив:');
k:=0;
sg:=1;
for i:=1 to n do
 begin
  s:=1;
  for j:=1 to i do
  s:=s*cos(i);
  a[i]:=s;
  write(a[i]:8:4);
  if a[i]>0 then
   begin
    k:=k+1;
    sg:=sg*a[i];
   end;
 end;
writeln;
if k=0 then write('Нет положительных значений')
else
 begin
  writeln('Количество положительныхзначений=',k);
  sg:=exp(ln(sg)/k);
  write('Их среднее геометрическое=',sg:0:13);
 end;
readln
end.

@Deny_Doberman 1 / 1 / 1 Регистрация: 16.07.2012 Сообщений: 94
		1
	Найти среднее геометрическое значение элементов массива 28.07.2013, 20:12. Показов 3126. Ответов 1 Метки нет (Все метки) 2.Составить программу, формирующую одномерный массив из N элементов ( N- натуральное число) следующим образом: Cos 1, cos^2 2, cos^3 3, cos^4 4 , …. , cos^n n. Найти среднее геометрическое значение элементов массива. Пожалуйста помогите 0

	29.07.2013, 08:46

Найти среднее геометрическое значение элементов массива

Решение