Для заданных N и х1,х2,х3...хN написать программу,используяподходящую функцию
р1=произведение от i=1 до N(abs(i))/i!

p2=произведение от i=1 до N(abs(sqr(xi-p1)))/i!

p3=произведение от i=1 до N(abs(xi-p2)^3)/i!

program lab8;
uses crt;
type t=array[1..20] of integer;
var c,n:integer;s1,s2:real;
x:t;
function proiz (x:t;n,st:integer;m:real):real;
var i,j:integer;p,k,a,h:real;
begin
p:=1;a:=1;h:=1;
for i:=1 to n do
begin
k:=1;
 for j:=1 to st do
  k:=k*(exp(i*ln(abs(x[i]-m)));
p:=p*i;
h:=h+k/p;
end;
proiz:=h;
end;
begin
  clrscr;
  write('‚ўҐ¤ЁвҐ зЁб«® n= ');
  readln(n);
  randomize;
  for c:=1 to n do
  begin
   x[c]:=random(5);
   write(x[c],' ');
   end;
   writeln;
  s1:=proiz(x,n,1,0);
  s2:=proiz(x,n,2,s1);
  s3:=proiz(x,n,3,s2);
  writeln(s1:4:4);
  writeln(s2:4:4);
  writeln(s3:4:4);
  readln
end.

Помогите разобраться за что отвечает оператор j

J - не оператор, а переменная... А непонятно тебе ее назначение, потому что там она напрочь не нужна. Не надо при вычислении степени использовать цикл, достаточно одного-единственного

k := exp(st * ln(abs(x[i]-m)));