хоть с одним вопросом что представляет собой пассивный и типовой документ? 2. Дайте характеристику основным частям окна MS Word. 3. Какие средства предусмотрены в MS Word для организации просмотра документов?

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

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

Нумерация в матрице начинается с 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;

}

1. В приведенном коде ошибка. Не хватает ";" в третьей строке снизу.
2. Немного изменим ваш код и получим искомое значение x
Искомое число х = 16293

var
  x, y, a, b, k: integer;

begin
  k:=10000;
  repeat
    x:=k;
    a := 0; b := 0; y := 1;
    while x > 0 do
    begin
      if (x mod 10) mod 2 = 0
        then
        a := a * 10 + x mod 10
      else begin
        y := y * 10;
        b := b * 10 + x mod 10
      end;
      x := x div 10
    end;
    a := a * y + b;
    k := k + 1;
    until a = 26391;
    writeln(a:8, k-1:8); 
end.