Проблемы с факториалом

[as1212]

Есть такая задачка

Даны натуральное число n, действительные числа a[1],...,a[n]. Вы-
числить -a[1]/1!+a[2]/2!-...+(-1)^n*a[n]/n!.

Вот код, но все равно не считает сумму

uses crt;
const n=5;
var s,dx, factorial: real;
i : integer; a:array[1..n] of real;
begin clrscr;
FOR I:=1 TO n DO BEGIN
a[i]:= random*100; //READ (X[I,J]);
END;
WRITELN(' ':20,'GIVVEN MASS');
FOR I:=1 TO n DO BEGIN
WRITE(a[I]:7:2);
WRITELN;
END;

factorial := 1.0;
s:=0.0;
repeat
factorial := factorial * n;
for i:=1 to n do begin
dx:=(exp(n*ln(-1)*a[i])/factorial);
s:=s+dx;
end;
until dx<0.001;
writeln(s:32:16);
readln
end.

Буду очень благодарен за помощь.

[rubius2008]

Сообщение от as1212

Есть такая задачка

Даны натуральное число n, действительные числа a[1],...,a[n]. Вы-
числить -a[1]/1!+a[2]/2!-...+(-1)^n*a[n]/n!.

Вот код, но все равно не считает сумму

ваши ошибки

factorial := 1.0;
s:=0.0;
repeat
 factorial := factorial * n; {будет считаться n в какой-то степени, а не факториал}
 for i:=1 to n do begin
 dx:=(exp(n*ln(-1)*a[i])/factorial); {ln(-1) не существует}
 s:=s+dx;
end;
until dx<0.001; {почему такое условие окончания? вам же нужно посчитать n элементов, а не с какой-то точностью}

можно сделать так расчет

factorial := 1.0; s:=0.0; dx:=-1;
for i:=1 to n do begin
  factorial := factorial * i;
  s:=s+dx*a[i]/factorial;
  dx:=-dx;
end;