4. Известно, что если Александр или Владимир занима­ются плаванием, то Сергей играет в футбол; если Виктор не занимается плаванием, то Сергей и Дмитрий занима­ются плаванием; Сергей занимается плаванием. Тогда плаванием занимаются: 1) Сергей и Дмитрий
2) Владимир и Сергей
3) Сергей и Александр
4) Сергей

5. Пусть по запросу бабочки | грибы было найдено 750 страниц, по запросу бабочки & муравьи — 70 страниц, по запросу грибы & муравьи — 30 страниц, по запросу ба­бочки & грибы & муравьи — 0 страниц. Тогда по запросу (бабочки | грибы) & муравьи было найдено:

1) 100 страниц
2) 700 страниц
3) 720 страниц
4) 70 страниц

6. Запишите знаки, которые используются для обозначе­ния дизъюнкции.

#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;

}

// PascalABC.NET 3.1, сборка 1213 от 04.04.2016
begin
  var m,n:integer;
  Write('Введите n и m: '); Read(n,m);
  var a:=MatrixRandom(n,m,-25,19);
  var max:=-26; // меньше возможного меньшего
  for var i:=0 to n-1 do begin
    for var j:=0 to m-1 do begin
      Write(a[i,j]:4);
      if a[i,j]>max then max:=a[i,j]
      end;
    Writeln
    end;
  Writeln('Максимальный элемент равен ',max)
end.

Тестовое решение:
Введите n и m: 5 8
 -25  -3 -20  -8  -4 -21   9 -16
   0  17   9 -22  10  15  -2  11
  -1  17 -12 -15   0  -7  17 -16
 -22  -9 -18   4  -4  -9   4 -16
  -8 -17 -21  11  -4  -7 -12  13
Максимальный элемент равен 17