работа над ошибками, где ошибка в написании программмы? Опции

[Булавка]

Условие: дан одномерный массив А, размером N<=50. Найти среднюю геометрическую сумму положительных элементов.

Program MM;
const n=50;
var
A:array[1..n] of integer;
i,S:integer;
Sg: real;
begin

writeln ('ввести массив А');
for i:=1 to n do
read (A[i]);

for i:=1 to n do
if A[I]>0 then
begin
s:=1;
for i:=1 to n do
s:=s*A[i];
Sg:=exp(ln(s)/n);
end;
writeln ('Sg=',Sg:3);
end.

Сообщение отредактировано: volvo - 2.11.2006 17:49