составить программу подсчета числа элементов одномерного массива, превосходящих СРЕДНЕЕ ГЕОМЕТРИЧЕСКОЕ

[Fatality]

Люди, выручайте! Помогите плиззз с такой задачей: составить программу подсчета числа элементов одномерного массива, превосходящих СРЕДНЕЕ ГЕОМЕТРИЧЕСКОЕ элементов данного массива. Помогите, на Вас одна надежда...

[maladoy]

var i,n,k:integer;
     pr,sg:real;
     x:array [1..100] of real;
begin 
writeln('vvedite n');
readln(n);
pr:=1;
for i:= 1 to n do begin
readln(x[i]);
pr:=pr*x[i];
end;
k:=0
sg:=exp((1/n)*ln(pr));
for i:=1 to n do

if x[i]>sg then k:=k+1;
writeln('kol-vo= ',k);
end.

[pomoshnic]

Fatality, незабудьте про readln; перед end.
и еще вот

k:=0;

[Fatality]

Друзья, ОГРОМНОЕ СПАСИБО, вроде работает!)

[AlDelta]

Один вопрос - одна тема.
Закрыто.