Подсчет среднего геометрического чисел в массиве

[Akamanah]

В массиве из 10 чисел подсчитать среднее геометрическое элементов стоящих правее максимального. Делфи, числа любые. Надеюсь на помощь

[phomm]

Что у Вас есть ? должно быть хотя бы - форма, кнопка("рассчитать"), метка/что угодно для вывода результата, мемо/грид для ввода данных, и, соответственно, чтение данных в массив(наверное ещё и с проверкой ввода). Алгоритм примерно такой - в цикле проверка всех элементов массива, нахождение наибольшего, запоминание его индекса. второй цикл - от запомненого индекса до конца - перемножение элементов и в конце деление на их количество, вывод результата.
Предоставляете всё кроме циклов, либо свои наработки с циклами, далее разберемся, не предоставляете - аська, 100-200 руб на телефон, поясню решение и вышлю код.

[Stilet]

Akamanah

Экстрим с потолка:

var a:array[1..10] of integer;
 avg,lavg:double; k,i:integer;
begin    k:=1;  randomize;
 for i:=1 to 10 do begin
  a[i]:=50-random(100);write(a[i]:5);
  avg:=avg+a[i];
  if a[i]>a[k] then begin
   k:=i;lavg:=avg;
  end;
 end;
 avg:=(avg-lavg)/(10-k);
 writeln;write(avg:2:3);
 readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

[Вадим Мошев]

Я хоть и не разобрался с кодом, который написал Stilet, но мне кажется, что Среднее геометрическое там НЕ считается, хотя я могу ошибаться.

Дам просто совет:
среднее геометрическое M чисел вычисляется как корень M-й степени из произведения этих чисел. При этом надо учитывать, что степень корня может оказаться чётной, а произведение - отрицательным. В этом случае надо выдать сообщения об ошибке.

[Stilet]

Ой!!! Это я и вправду ступил... видимо прочитал неправильно

Рискну поправиться:

var a:array[1..10] of integer;
 avg,lavg:double; k,i:integer;
begin    k:=1;   avg:=1;  randomize;
 for i:=1 to 10 do begin
  a[i]:=1+random(10);
  write(a[i]:5);
  avg:=avg*a[i];
  if a[i]>a[k] then begin
   k:=i;lavg:=avg;
  end;
 end;
 if avg<>0 then
  avg:=exp(1/(10-k)*ln(avg/lavg));
 writeln;write(avg:2:3);
 readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

[Obey-Kun]

Следующая программа на C показывает среднее геометрическое массива из 10 единичек:

#include <stdio.h>
int main()
{
    puts("1");
}

На Паскале:

begin
    write(1);
end.