Помогите пж Pascal
.Заменить 1-й элемент одномерного массива на среднее геометрическое значение его элементов.
2 комментария:
Элементы с клавиатуры вводятся или рандомно заполнить массив ?
Без разницы тут не написано
Элементы с клавиатуры вводятся или рандомно заполнить массив ?
Без разницы тут не написано Ответы
Гость //PascalABC.NET 3.3,сборка 1611 от 06.01.2018
//Внимание! Если программа не работает, обновите версию!
begin
var a:=1.0;
var n:=readinteger('n=');
var mas:=ArrRandomReal(n,-99,99);
var h:=mas.Select(t->round(t*100) /100).ToArray; h.Println;
for var i:=0 to n-1 do
a:=a*h[i];
a:=a*(1/n);
h[0]:=a;
writeln('среднее неометрическое =',a);
h.println;
end.
2 комментария:
1) Вы прикрепили скрин от другой задачи. 2) Надо было не только найти среднее геометрическое, но и заменить на него mas[0]. 3) Для чего a умножать на единицу? Среднее геометрическое - это a**(1/n), а не a*1/n, поправьте.
ок спасибо
1) Вы прикрепили скрин от другой задачи. 2) Надо было не только найти среднее геометрическое, но и заменить на него mas[0]. 3) Для чего a умножать на единицу? Среднее геометрическое - это a**(1/n), а не a*1/n, поправьте.
ок спасибо Похожие вопросы
Информатика
Язык программирования Pascal Поменять местами цифры любого трехзначного числа и вывести их на экран...
Информатика
Номер 2(аналитически) пожалуйста...
Список предметов
