Написание программы с использованием функции

[Ветас]

Здравствуйте, уважаемые форумчане.
Решаю задачу: Для заданного одномерного массива X1,X2,...Xn написать программу с использованием функции.

Вот что пока на данный момент сделал:

program prim_3;
uses crt;
var a:array[1..50] of integer;
x,l,k,g,i,n:integer;
m,p1,p2:real;
 
function func:real;
var p:real;
k,j:integer;
begin
p:=0;
for i:=1 to n do begin
k:=i;
p:=1;
for j:=1 to k do begin
p:=p*j;
end;
p:=p*(abs(a[i])/p)
end;
func:=p;
end;
 
begin
clrscr;
write('Введите размерность массива: ');readln(n);
writeln;
randomize;
for i:=1 to n do begin
a[i]:=random(5);
write (a[i]:5);
end;
writeln;
p1:=func;
write('p1=',p1:0:0);
m:=0;
for i:=1 to n do begin
l:=i;
m:=1;
for x:=1 to l do begin
m:=m*g;
end;
p2:=(sqr(abs(a[i]-p1)))/m
end;
write('p2=',p2:0:0);
readln;
end.

Но почему-то вылетает ошибка "Division By Zero" в следующем выражении:

......
p2:=(sqr(abs(a[i]-p1)))/m
......

Условие задачи находится во вложении.

Большая просьба помочь.

[ОДИНОЧЕСТВО В СЕТИ]

потому что там и есть деление на 0

m:=m*g;

g -нигде не инициализирована
и по умолчанию=0;

[Ветас]

Спасибо большое за подсказки!
Но не могу понять, у меня при любом вводе n значение p2 всегда равно нулю.

program prim_3;
uses crt;
var a:array[1..50] of integer;
x,l,k,g,i,n:integer;
m,p1,p2:real;

function func:real;
var p:real;
k,j:integer;
begin
p:=0;
for i:=1 to n do begin
k:=i;
p:=1;
for j:=1 to k do begin
p:=p*j;
end;
p:=p*(abs(a[i])/p)
end;
func:=p;
end;

begin
clrscr;
write('Введите размерность массива: ');readln(n);
writeln;
randomize;
for i:=1 to n do begin
a[i]:=random(5);
write (a[i]:5);
end;
writeln;
p1:=func;
write('p1=',p1:0:0);
m:=0;
for i:=1 to n do begin
l:=i;
m:=1;
for g:=1 to l do begin
m:=m*g;
end;
p2:=(sqr(abs(a[i]-p1)))/m
end;
write('p2=',p2:0:0);
readln;
end.

Подскажите, пожалуйста, где еще что не так в коде программы ?

[ОДИНОЧЕСТВО В СЕТИ]

если хоть одно a[i]=0 то все верно!

[Ветас]

А если у меня все a[i] не равны нулю а в результате работы программы значение p2=0 ?

[ОДИНОЧЕСТВО В СЕТИ]

var
p,p1:real;
i,n:integer;
a:array[1..100] of integer;
function Fac(n: Word): Longint; 
var 
f: LongInt; 
i: Integer; 
begin 
f := 1; 
for i := 2 to n do f := f * i; 
fac:= f; 
end;
begin
randomize;
writeln('n=');
readln(n);
p1:=1;
p2:=1;
for i:=1 to n do
begin
a[i]:=random(5)+1;
p1:=p1*abs(a[i])/fac(i);
end;
writeln('p1=',p1:6:3);
for i:=1 to n do
p2:=p2* sqr(abs(a[i]-p1))/fac(i);
writeln('p2=',p2:6:3);
redaln;
end.