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

[Булавка]

Условие: дан одномерный массив А, размером 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

[volvo]

... ну, а в третьих... Тебе же надо среднее геометрическое положительных элементов массива? Почему же ты вычисляешь корень N-ой степени из S ? Тогда уже считай К = число элементов больших 0, и вычисляй корень K-ой степени...

Да и вообще у тебя цикл как-то запутан, и к тому же не будет компилироваться - ты ВНУТРИ одного цикла по i делаешь второй - тоже по i... Так нельзя.

[Романтик]

... ну, а в третьих... Тебе же надо среднее геометрическое положительных элементов массива? Почему же ты вычисляешь корень N-ой степени из S ? Тогда уже считай К = число элементов больших 0, и вычисляй корень K-ой степени...

Да и вообще у тебя цикл как-то запутан, и к тому же не будет компилироваться - ты ВНУТРИ одного цикла по i делаешь второй - тоже по i... Так нельзя.

оффтоп: to volvo: в turbo pascal compile suc. Delphi не компилится.