Определи, какой объём информации (в битах) сможет передать канал связи, если скорость передачи информации составляет 2 Кбит/с за 29 с. (В ответе запиши только число.)

Var a:array of array of integer;
c:array of array of integer;
ma:array of array of integer;
i,j,n:integer;
begin;
randomize;
readln(n);
setlength(a,n+1); //задаём размерность динамических массивов
setlength(c,n+1);
setlength(ma,n+1);
for i:=1 to n do
begin;
setlength(a[i],n+1);
setlength(c[i],n+1);
setlength(ma[i],n+1);
end;

writeln('Matrix A:');   //генерируем массив псеводслучайных чисел
for i:=1 to n do begin;
 writeln;
  for j:=1 to n do
   begin;
    a[i,j]:=random(10);
    write(a[i,j]:4);
   end;
 end;
writeln;

writeln('Matrix C:'); //аналогично
for i:=1 to n do
 begin;
 writeln;
  for j:=1 to n do
   begin;
    c[i,j]:=random(10);
    write(c[i,j]:4);
   end;
 end;

for i:=1 to n do     //сохраняем матрицу C для транспонации
  for j:=1 to n do
    ma[i,j]:=c[i,j];
    writeln;

writeln('Transpose matrix C:'); //транспонируем C
for i:=1 to n do
 begin;
  writeln;
   for j:=1 to n do
    begin;
     c[i,j]:=ma[j,i];
     write(c[i,j]:4);
    end;
 end;

writeln;
writeln('Final matrix:'); // получаем финальную матрицу
for i:=1 to n do
 begin;
  writeln;
   for j:=1 to n do
    begin;
     ma[i,j]:=2*c[i,j]*a[i,j];
{по свойству дистрибутивности матриц С(A+A)=C*A+C*A=2*C*A}
     write(ma[i,j]:4);
    end;
 end;
end.

Условие  - Найти максимальный элемент матрицы. Строку, содержащую

максимальный элемент, поменять с последней строкой матрицы.

Нумерация в матрице начинается с 0.

С++ на Code Blocks 16

Объяснение:

#include <iostream>

#include <time.h>

using namespace std;

int main()

{

   int  n = 8; // можно ввести любую размерность квадратной матрицы

   int a[n][n];

   int Nmax, Nind, i, j = 0 ;

   int d;

// Заполним матрицу случайными числами в диапазоне [0 ,100)

// и сразу её выведем

   cout << " ---- Array in start ---- " << endl;

   srand(time(0));

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

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

           a[i][j] = rand()%111;

           cout <<a[i][j] ;

           cout<< "    ";

       }

       cout << "  " << endl;

   }

// Поиск максимального элемента матрицы. Для оптимизации, можно было это произвести на этапе заполнения матрицы

// но для наглядности, напишем отдельно

   Nmax = 1;

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

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

           if (Nmax < a[i][j]) {

             Nmax = a[i][j];

             Nind = i;

           }

       }

   }

   cout<< "Max ["<< Nind<<"] = "<< Nmax << endl;

// Меняем строки местами

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

         d = a[n-1][j];

         a[n-1][j]=a[Nind][j];

         a[Nind][j] = d;

    }

   cout << " ---- Array after modify ---- " << endl;

// Выводим полученную матрицу

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

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

       cout << a[i][j] ;

       cout<< "    ";

     }

     cout << "  " << endl;

   }

   return 0;

}