Паскаль. Массивы

[cucumber]

Помогите, пожайлуста.
Нужно составить прогрраму, что бы она

вычисляла среднее арифметическое и геометрическое непарных елементов массива А(10), отбросивши 2 самых больших елемента

[TEHb]

геометрическое непарных елементов массива

как средне геометрическое значение вычесляется?

отбросивши 2 самых больших елемента

масив строго задан 10? или это как получится?
новый масив надо создавать или работать с этим?

[cucumber]

Сообщение от TEHb

как средне геометрическое значение вычесляется?

http://ru.wikipedia.org/wiki/Среднее_геометрическое
там формула среднего гоеметрического

Сообщение от TEHb

масив строго задан 10? или это как получится?

строго задан 10

Сообщение от TEHb

новый масив надо создавать или работать с этим?

работать над этим

[Манжосов Денис :)]

Если я правильно понял.

program Project2;

{$APPTYPE CONSOLE}
const
  n = 10;
type
  MyArray = array [1..n] of integer;
var
  a: MyArray;
  i,k: integer;
procedure Init(var a: MyArray);
var
  i: byte;
begin
  Randomize;
   for i:=1 to n do
    a[i] := Random(100);
end;

procedure FindTwoMax(a: MyArray);
var
  i: byte;
  k,g: integer;
begin
k := 1;
g := 0;
  for i:=1 to n do
   if a[i] > k then begin
                     k := a[i];
                     g := i;
                    end;
  if g <> 0 then
   a[g] := 0;
end;

begin
  Init(a);
  FindTwoMax(a); FindToMax(a);
end.

Я не понял вот эту строчку

геометрическое непарных елементов массива

Не до конца задача сделана

[Anatole]

непарные, это те, которые н делятся нацело на 2. в pascal это те для которых функция odd возвращает значение true
а программу начатую Денисом , с вашего разрешения я продолжу:

после директивы компилятора
{$APPTYPE CONSOLE}
вставляем стороку :
uses Math;

раздел описания переменных в основной программы дополняем строкой:

s, p : extended;

строку procedure FindTwoMax(a: MyArray);
меняем на: procedure FindTwoMax(var a: MyArray);
после строки FindTwoMax(a); FindTwoMax(a); вставляем:

s:= 0;
p := 1;
k := 0;
for i:=1 to n do
begin
if odd a[i] then
begin
s := s + a[i];
p := p*a[i];
inc(k);
end;
if k<> 0 then s := s/k ;
writeln('srednee arifmetitheskoe s=',s);
if p <> 0 then p := Power(p, 1/k);
writeln('srednee geometritheskoe P=',p);