Código Delphi
[-]
program factorial; vari,i:Integer; f : Double; m1 : Array[0..9] of integer; m2 : Array[0..9] of Double;
beginfor i:=0 to 9 dobeginm1[i]:=i;
end;
for i:=0 to 9 dobeginm2[j]:=1; for j:=0 to m1[i] dom2[j]:=m2[j]*j;
end;
end;
supongo que algo asi te podria funcionar, no lo he provado pero me parece que si funciona. Aunque creo que por el hecho de iniciar de "0" es posible que todos los resultados sena "0"
saludos.