Problema con matrices que no logro resolver

[raulmm26]

lo que sucede con lo que haceis con el factorial es que lo haceis mal no se pone un for despues sino un while y multiplicar quitando a la posicion en que se encuentra hasta que sea uno,quedaria algo asi:
var
i,fact,n: integer;
m1, m2: array[1..10] of Cardinal;
begin
m1[1]:= 1;
m2[1]:=1;
fact:=1;
for i:= 2 to 10 do
begin
m1[i]:= i;
n:=i;
while n>=1 do
begin
fact:=fact*n;
n:=n-1;
end;
m2[i]:= fact;
fact:=1;
end;
end;

[OSKR]

raulmm26:

lo que sucede con lo que haceis con el factorial es que lo haceis mal no se pone un for despues sino un while y multiplicar quitando a la posicion en que se encuentra hasta que sea uno,quedaria algo asi

Pero ....a qién le dices esto?...
Estás usando 2 ciclos..los anteriores algoritmos funcionan al pelo (eso creo)
y además....:

m1[1]:= 1;

recuerda q empieza de 0.
Mejor hago caso a lo q dijo seoane:

Pero para la tonteria de problema que es creo que le estamos dando muchas vueltas.

y tiene toda la razón.