Дан двумерный массив размером n*n. Создать функцию которая находит факториал каждого элемента массива и заменяет исходный элемент на его факториал (значение функции). в первой строке написано число n. (4! = 1*2*3*4) 3 2 24 5047 2 4 7 6 720 40320 3 6 8 2 24 120 2 4 5

program zz1;

const n = 5;

/ / задаем количество элементов в массиве

var i, j, s, max, k:integer; / / задаем переменные целого типа

a:array [1 ... n, 1 ... n] of integer;

function fact (x:integer) : integer;

var v, p:integer;

begin

p:=1;

for v:=1 to x do

begin

p:=p*v;

end;

fact:=p;

end;

begin

for i:=1 to n do

for j:=1 to n do / / получаем числа и записываем их в массив

a[i, j]:=random (11);

for i:=1 to n do / / выводим полученный массив на экран

begin

for j:=1 to n do

write (a[i, j]:10);

writeln;

end;

writeln; writeln;

for i:=1 to n do

for j:=1 to n do

a[i, j]: = fact (a[i, j]);

for i:=1 to n do / / выводим полученный массив на экран

begin

for j:=1 to n do

write (a[i, j]:10);

writeln;

end;

end.