Вычисление среднего арифметического и среднего геометрического.

@VIG · Регистрация: 05.10.2010

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

В одномерном массиве вычислить среднее геометрическое и среднее арифметическое значения для положительных элементов.

@Sasha_Smirnov · 27.09.2011, 03:31

Сами переделаете: Среднее арифметическое и геомитрическое?

Комментарий модератора

Нет желания помочь, пропусти тему и не давай ссылки на то, что совершенно не поможет человеку.

@Puporev · 27.09.2011, 08:48

Pascal

uses crt;
const nmax=100;
var a:array[1..nmax] of real;
    n,i,kp:integer;
    sa,sg:real;
begin
clrscr;
randomize;
repeat
write('Размер массива до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Исходный массив:');
for i:=1 to n do
 begin
  a[i]:=20*random-5;
  write(a[i]:8:2);
 end;
writeln;
kp:=0;
sa:=0;
sg:=1;
for i:=1 to n do
if a[i]>0 then
 begin
  kp:=kp+1;
  sa:=sa+a[i];
  sg:=sg*a[i];
 end;
if kp=0 then write('В массиве нет положительных элементов')
else
 begin
  sa:=sa/kp;
  sg:=exp(ln(sg)/kp);
  writeln('Среднее арифметическое положительных=',sa:0:2);
  writeln('Среднее геометрическое положительных=',sg:0:2);
 end;
readln
end.

@VIG 193 / 9 / 1 Регистрация: 05.10.2010 Сообщений: 309
		1
	Вычисление среднего арифметического и среднего геометрического. 26.09.2011, 21:42. Показов 1815. Ответов 2 Метки нет (Все метки) В одномерном массиве вычислить среднее геометрическое и среднее арифметическое значения для положительных элементов. 0

	27.09.2011, 08:48

Вычисление среднего арифметического и среднего геометрического.

Решение