Моделдердің бір-бірінен ерекшелігін сипаттаныз

​

#include <iostream>

#include <iomanip>

using namespace std;

int** matrCreate(int n)

{

   int** M;

   M = new int *[n];

   for (int i = 0; i < n; i++)

       M[i] = new int [n];

   return M;

}

void matrInit(int** M, int n)

{

   srand(time(0));

   for(int i = 0; i < n; i++)

    for(int j = 0;  j < n;  j++)

     M[i][j] = rand()%199 - 99 ;

}

void matrPrint(int** M, int n)

{

   for(int i = 0; i < n; i++)

{

    for(int j = 0;  j < n;  j++)

     cout << setw(5) << M[i][j];

   cout << endl;

}

}

void matrTransform(int** M, int n)

{

   int im, jm, max = -1000, s = 0;

   for(int i = 0; i < n; i++)

{

    for(int j = 0;  j < n;  j++)

    {

        if (M[i][j] > max)

        {

            max = M[i][j];

            im = i;

            jm = j;

        }

        if (i == j)

            s += M[i][j];

    }

}    

M[im][jm] = s;    

}

void clearMem(int** M, int n)

{

   for (int i = 0; i < n; i++)

{

 delete [] M[i];

}

delete [] M;

}

int main()

{

   int n;

   cin >> n;

   int **A;

   A = matrCreate(n);

   matrInit(A, n);

   matrPrint(A, n);

   cout << endl;

   matrTransform(A, n);

   matrPrint(A, n);

   clearMem;

   return 0;

}

Задание 1:

beginvar n := 0;while (not TryRead(n,'Введите количество чисел:')) or (n<0) do Writeln('неверный ввод');Writeln; if n=0 then Write('Чисел нет') else begin var a := ReadArrInteger('Введите числа:',n); Println('Сумма:',a.Sum); Println('Произведение:',a.Product); end end.

Задание 2:

uses GraphABC, ABCObjects; beginWindow.SetSize(300,200); var r1 := new RectangleABC(0,0,Window.Width,Window.Height div 2); var r2 := new RectangleABC(0,Window.Height div 2,Window.Width,Window.Height div 2); OnKeyPress += (c:char) -> begin r1.Text:=c; r2.Number:=Ord(c) end; end.

Задание 3:

beginWriteln(' I: X:');SeqGen(10,x->Random(0,20)*5).Numerate.PrintLines(x->Format('{0,2}  {1}',x[0],x[1])) end.

Примеры работ: