Дан двумерный массив размером 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

1

Ответы и объяснения

2013-11-23T09:20:40+00:00
Program Task;
Var a: Array [,] of LongInt;
i, j, n, b, c: Integer;
Begin
    Write('n = ');
    ReadLn(n);
    SetLength(a, n, n);
    For i := 0 To n - 1 Do
    Begin
        WriteLn('Введите ', i + 1, ' рядок массива (', n, ' чисел) через пробел');
        For j := 0 To n - 1 Do
        Begin
            Read(a[i, j]);
            b := a[i, j];
            c := 1;
            While b > 0 Do
            Begin
                c := c * b;
                b := b - 1;
            End;
            a[i, j] := c;
        End;
    End;
    WriteLn('Результат:');
    For i := 0 To n - 1 Do
    Begin
        For j := 0 To n - 1 Do
            Write(a[i, j], ' ');
        WriteLn;
    End;
    ReadLn;
End.