найти среднее геометрическое положительных элементов массива

[Нежная Снежная]

помогите написать прогу для такого вот задания: найти среднее геометрическое положительных элементов массива А(-4;0;5;-6;1,1;9,8;23,-2;-12,-88) остальные элетенты вывести. Препод сказала что надо сначала вычислять произведение, потом количество и только потом среднее геометрическое.
program pr1;
const n=10;
type mas=array[1..n] of real;
const a:mas=(-4,0,5...);
var i:integer;
sr:real;
begin
Sr:=1;
for i:=1 to 10 do
begin
if (a>0) then sr:=не знаю какую формулу писать
else writeln('a=',a);
end;
writeln('sr=',sr);
end.

вот эту ей программу показала - не понравилась

[dr.Jekill]

Среднее геометрическое последовательности однотипных элементов - это произведение всеч элементов этой последовательности разделенное на кол-во элементов. Присваиваем переменной (напр.: pr) единицу, проходим по массиву в цикле и накапливаем произведение элементов (pr:=pr*a), после этого exp(1/i*ln(pr))

[Sheka]

разделенное на кол-во элементов

извини конечно, но у меня такой вопрос:"ты в школе учился?!".
это среднее арифметическое "разделенное на кол-во элементов",
а среднее геометрическое - корень степени кол-ва елементов.
--------------------------------------------------------------------------------
Добавлено сообщение
--------------------------------------------------------------------------------
если еще актуально, могу помочь.

[dr.Jekill]

Sheka, помоги ближему своему