Факториал

[BaNNeD]

Сам код! нужно вычеслить факториал 3-го эл. массива

program pfff;
uses crt;
     type t=array [1..10] of integer;
var   a:t;
      F,k,i,p,s:integer;
begin   clrscr; randomize;
     s:=0;
     p:=1;
     k:=0;
     F:=1;
   for i:=1 to 10 do
      begin
      a[i]:=random(10);
      if i mod 2=0 then s:= s+a[i];
      if (i mod 2<>0) and (a[i]<>0) then p:=p*a[i];
      if (a[i] mod 5=0) and (a[i]<>0) then
      k:=k+1;
      end;

          for i:=1 to 10 do
          writeln('a[',i,']=',a[i]);
      writeln('S=',S);
      writeln('P=',P);
      writeln('Kol kratnih 5-i=',k);
end.

[Ybn2]

факториал 3-го эл. массива:

program pfff;
uses crt;
     type t=array [1..10] of integer;
var   a:t;
      F,k,i,p,s:integer;
begin   clrscr; randomize;
     s:=0;
     p:=1;
     k:=0;
     F:=1;
   for i:=1 to 10 do
      begin
      a[i]:=random(10);
      if i mod 2=0 then s:= s+a[i];
      if (i mod 2<>0) and (a[i]<>0) then p:=p*a[i];
      if (a[i] mod 5=0) and (a[i]<>0) then
      k:=k+1;
      end;

  For i:=1 to a[3] do f:=F*i

          for i:=1 to 10 do
          writeln('a[',i,']=',a[i]);
      writeln('S=',S);
      writeln('P=',P);
      writeln('F=',F);
      writeln('Kol kratnih 5-i=',k);
end.

Так что ли?

[BaNNeD]

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

Так что ли?

ага блин а я ступил формулу факториала вставлял в 1 цикл! спасибо=)