массив

[Babur4iK]

составить программу для вычисления элементов вектора x по формуле:

x[i]:= ln(sqr(x[i-1])) - sqr(ln ( abs( x[i-2])))

[Babur4iK]

var i,n:integer;

x:array[1..100] of real;

begin

writeln('Âåäèòå N=');

readln(n);


readln(x[1]);


for i:=3 to n do


begin

writeln('x[',i,']=');
readln(x[1]);

x[i]:= ln(sqr(x[i-1])) - sqr(ln ( abs( x[i-2])));
writeln( i, ' ','X[i]=',x[i]:8:2);
end;

end.

првильно лия сделал?

по чему все время пишет что деление на ноль

[Sparky]

а чему у вас равен второй элемент, он ведь не инициализирован

[Babur4iK]

да я понял все уже сделал