Помогите пж Pascal.Поменять 1-й элемент одномерного массива на среднее геометрическое

Помогите пж Pascal
.Поменять 1-й элемент одномерного массива на среднее геометрическое значение его элементов.

Задать свой вопрос
Нелли Аринова
Элементы с клавиатуры вводятся либо рандомно заполнить массив ?
Амочаева Лилия
Без различия здесь не написано
1 ответ
//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-gt;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.
Вася Феликсов
ок спасибо
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт