Помогите пожалуйста. Задача по информатики. Дан массив с размером 20 элементов...

Question

Помогите пожалуйста. Задача по информатики. Дан массив с размером 20 элементов заполняется формулой c[i]:=i*2+1. Найти произведение элементов массива

Answer 1

program fantscrin;

   const n =20;

   var i,p:integer;

       c: array [1..n] of integer;

begin

    for i:=1 to n do

       c[i]:=i*2+1;  

     

    for i:=1 to n do

       write(c[i], '  ');

       

    writeln('');

    p:=1;

    for i:=1 to n do

       p:=p*c[i];

       

    writeln(p);

     

end.