Дано целое положительное число N. Вычислить факториал этого числа:N!=1*2*3*…*N используя различные виды циклов. Опишите алгоритм решения задачи записав блок-схему, АЯ и программу на языке программирования Паскаль для каждого из них. Выполните проверку с трассировочной таблицы для произвольных чисел.

Int mass[5][5];    //создадим матрицу 5 на 5
int summ = 0;     //создадим переменную сумм (обнуляем обязательно)

//заполним массив рандомными числами от 0 до 10
for (int i = 0; i < 5; i++)
{
     for (int j = 0; j < 5; j++)
     {
         mass[i][j] = 0 + rand()%10;
     }
}

//теперь пошла магия. и так главная диагональ в массиве это элемент с
//одинаковыми индексами, то есть mass[0][0], mass[1][1], mass[2][2],
//mass[3][3], mass[4][4] и так далее, от сюда выходит что элементы выше //диагонали это элементы массива где второй индекс больше первого
//(первый индекс - индекс строки, второй - индекс столбца)
//то есть mass[0][1], mass[1][2] и так далее все писать не буду потому что
//долго.

for (int i = 0; i < 5; i++)
{
     for (int j = 0; j < 5; j++)
     {
         if (j >= i) // та самая проверка индексов (если тебе нужно те
                      //элементы которые не входят в главную диагональ то без =,                       //просто в задании не уточнено это)
         {
             summ += mass[i][j];
         }
     }
}

ну вот собственно и все, с выводом и библиотеками думаю сам разберешься

#include <iostream>
using namespace std;
int main() {
    cout<<–2013<<" "<<21<<" "<<56<<endl;
    cout<<–2.034<<" "<<1.15<<" "<<5.36<<endl;
    cout<<"– 2 0 1 5"<<endl;
    cout<<"Наступил 2015 год"<<endl;
    cout<<"Поздравляю Всех с Новым"<<endl<<"2 0 1 5"<<endl<<"годом !"<<endl;
    cout<<"Выполнила задание"<<endl<<"Радченко Мария Александровна"<<endl
        <<"слушатель группы ЗМС-14-4"<<endl;
    system("PAUSE");
    return 0;
}

Результат выполнения программы:
-2013 21 56
-2.034 1.15 5.36
- 2 0 1 5
Наступил 2015 год
Поздравляю Всех с Новым
2 0 1 5
годом !
Выполнила задание
Радченко Мария Александровна
слушатель группы ЗМС-14-4
Для продолжения нажмите любую клавишу . . .