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

[cucumber]

Задание:

разработать программу обработки массива. Найти среднее геометрическое четных элементов массива А (10), отвергнув найбольший и найменьший элемент

спасибо.

[Sazary]

Что непонятно? Что не получается? Где ваши наработки?

Ищете максимум и минимум. Потом идете в цикле по четным элементам.
При этом, если текущий элемент не равен ни максимуму, ни минимуму, то домножаете на него общее произведение и увеличиваете счетчик.
Потом через логарифмы находите среднее геометрическое.

[cucumber]

да вобще ничего не получаеться(((

[Sazary]

да вобще ничего не получаеться(((

Показывайте попытки.
Алгоритм я написал. Какой пункт непонятен?

[cucumber]

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

Показывайте попытки.
Алгоритм я написал. Какой пункт непонятен?

{$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;


ну вот это знаю и все

[Sazary]

Мало же вы знаете.

{$APPTYPE CONSOLE}
const
n = 10;
type
MyArray = array [1..n] of integer;
var
a: MyArray;
i,k: integer;
min,max : integer;
geom : real;

procedure Init(var a: MyArray);
var
i: byte;
begin
Randomize;
for i:=1 to n do
 begin
 a[i] := Random(15);
 write(a[i]:4);
 end;
writeln;
end;

function getmin(a: MyArray) : integer;
var i:integer;
min : integer;
begin
min := a[1];
for i:=2 to n do
 if a[i]<min then min := a[i];
getmin := min;
end;

function getmax(a: MyArray) : integer;
var i,max : integer;
begin
max := a[1];
for i:=2 to n do
 if a[i]>max then max := a[i];
getmax := max;
end;

begin
init(a);
min := getmin(a);
max := getmax(a);
geom := 1;
k := 0;
for i:=1 to n do
 if (a[i] mod 2=0) and (a[i]<>min) and (a[i]<>max) then
  begin
  geom := geom*a[i];
  inc(k);
  end;
geom := exp((1/k)*ln(geom));
writeln(geom:5:2);
readln;
end.