Question

Ребят очень прошу помочь .

Дан массив C(10) элементов. Заполните его числами в интервале от [10;90]. Вычислите среднее геометрическое элементов массива стоящих на нечетных местах.​

Answer 1

Ответ:

var

 arr: array[1..10] of integer;

 i, k, n: integer;

begin

 randomize;

 k := 1;

 n := 0;

 for i := 1 to 10 do begin

   arr[i] := random(10,90);

   if odd(i) then begin

     k := k * arr[i];

     inc(n);

   end;

 end;

 writeln(power(k, 1 / n));

end.