Вычислить среднее арифметическое (геометрическое) положительных (отрицательных) элементов массива

@iavn11234 · Регистрация: 12.11.2017

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

Вычислить среднее арифметическое (геометрическое) положи-тельных (отрицательных) элементов массива.
Нужно очень просто и подробнее ) чтобы нуб как я все понял

@Винокуров · 25.12.2017, 22:35

Ну давай подумаем.
Что у нас такое среднее арифметическое? Это сумма всех элементов, делённая на их количество: $https://www.cyberforum.ru/cgi-bin/latex.cgi?\frac{a_1+a_2+a_3+\ldots+a_n}{n}<br />$
Что у нас такое среднее геометрическое? Это произведение всех элементов под корнем кратности их количества: $https://www.cyberforum.ru/cgi-bin/latex.cgi?\sqrt[n]{a_1\cdot a_2\cdot a_3\cdot\ldots\cdot a_n}$

Соответственно, пишем функции, вычисляющие данные параметры:

Pascal

const
  n = 10;
 
type
  TArr = array[1..n] of real;
 
var
  D: TArr;
 
function SredArifm(K: TArr): real;
begin
  Result := 0;
  for var i := 1 to n do
    Result := Result + K[i];
  Result := Result / n;
end;
 
function SredGeom(K: TArr): real;
begin
  Result := 1;
  for var i := 1 to n do
    Result := Result * K[i];
  Result := power(Result, (1 / n));
end;
 
begin
  For var i:=1 to n do
  Readln(D[i]);
  Writeln(SredArifm(D));
  Writeln(SredGeom(D));
end.

@vsymnyivs · 23.01.2019, 23:07

Не могу запустить эту программу выдаёт кучу ошибок на онлайн компиляторе
https://www.onlinegdb.com/online_c++_compiler#

@JuriiMW · 24.01.2019, 05:04

vsymnyivs, а у них на сайте где-то сказано, что используется PascalABC.NET?
Нет!
Так, что же вы ему подсовываете?

@vsymnyivs · 24.01.2019, 09:17

спасибо, увидел ошибку. Там есть переключатель языков.

@Sun Serega · 24.01.2019, 13:11

Вот только PascalABC.Net там нету. Просто Pascal это другой язык.
Вбейте PascalABC.Net в адресную строку - получите сайт именно его компилятора. Правда WDE (онлайн компилятор) давно закрыли, ибо ломался, а чинить некому было. Поэтому скачивайте нормальный компилятор, в виде программы.

Вычислить среднее арифметическое (геометрическое) положительных (отрицательных) элементов массива

Решение

Решение

@iavn11234 0 / 0 / 0 Регистрация: 12.11.2017 Сообщений: 27
		1
	Вычислить среднее арифметическое (геометрическое) положительных (отрицательных) элементов массива 25.12.2017, 21:30. Показов 2606. Ответов 5 Метки нет (Все метки) Вычислить среднее арифметическое (геометрическое) положи-тельных (отрицательных) элементов массива. Нужно очень просто и подробнее ) чтобы нуб как я все понял 0

@vsymnyivs 0 / 0 / 0 Регистрация: 23.01.2019 Сообщений: 13
	23.01.2019, 23:07	3
	Не могу запустить эту программу выдаёт кучу ошибок на онлайн компиляторе https://www.onlinegdb.com/online_c++_compiler# 0

@JuriiMW 5079 / 2651 / 2349 Регистрация: 10.12.2014 Сообщений: 10,029
	24.01.2019, 05:04	4
	Сообщение было отмечено ZX Spectrum-128 как решение Решение vsymnyivs, а у них на сайте где-то сказано, что используется PascalABC.NET? Нет! Так, что же вы ему подсовываете? 0

@vsymnyivs 0 / 0 / 0 Регистрация: 23.01.2019 Сообщений: 13
	24.01.2019, 09:17	5
	спасибо, увидел ошибку. Там есть переключатель языков. 0

@Sun Serega 2315 / 1425 / 519 Регистрация: 07.04.2017 Сообщений: 4,728
	24.01.2019, 13:11	6
	Вот только PascalABC.Net там нету. Просто Pascal это другой язык. Вбейте PascalABC.Net в адресную строку - получите сайт именно его компилятора. Правда WDE (онлайн компилятор) давно закрыли, ибо ломался, а чинить некому было. Поэтому скачивайте нормальный компилятор, в виде программы. 0