Написать программу, подсчитывающую среднее геометрическое всех элементов массива [1 ... 5]

Question

Информатика

Клара

6 октября, 17:09

Написать программу, подсчитывающую среднее геометрическое всех элементов массива [1 ... 5]

+2

Ответы (1)

Знаете ответ?

Миша · Answer 1

Const

N = 5;

Var

A:array[1 ... N] of integer;

i:integer;

P:real;

Begin

Randomize;

P:=1;

Write ('Исходный массив:') ;

For i: = 1 to N do

Begin

A[i]:=random (N*2+1) ;

Write (' ', A[i]) ;

P:=P*A[i];

End;

WriteLn;

WriteLn ('Среднее геометрическое его элементов: ', Power (P, 1/N) : 0:3) ;

End.