Если мощность двоичного алфавита равна 4, то информационный вес одного символа равен?

Считаем так
2^n=4 
n=2 бит

Задание 1:

using namespace std;

#include <iostream>

#include <clocale>

#include <cstdlib>

#include <iomanip>

#include <string>

#include <ctime>

int main() {

setlocale(LC_ALL, "rus");

system("chcp 1251");

srand(time(0));

 

int N = rand() % 6 + 5;

int pos = 0, neg = 0, max = -20, min = 20, maxind, minind;

int* mass = new int[N];

cout << "Массив:" << endl;

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

 mass[i] = rand() % 41 - 20;

 if (mass[i] > 0) pos++;

 if (mass[i] < 0) neg++;

 if (mass[i] > max) {

  max = mass[i];

  maxind = i;

 }

 if (mass[i] < min) {

  min = mass[i];

  minind = i;

 }

 cout << setw(3) << mass[i];

}

cout << endl << endl;

if (pos > neg) {

 swap(mass[maxind], mass[minind]);

 cout << "Измененный массив:" << endl;

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

  cout << setw(3) << mass[i];

 }

}

else cout << "Массив не изменился";

cout << endl;

 

delete[] mass;

system("pause");

return 0;

}

Задание 2:

using namespace std;

#include <iostream>

#include <clocale>

#include <cstdlib>

#include <iomanip>

#include <string>

#include <ctime>

int main() {

setlocale(LC_ALL, "rus");

system("chcp 1251");

srand(time(0));

 

int N = rand() % 6 + 5;

int max = -20, min = 20, maxind, minind;

int* mass = new int[N];

cout << "Массив:" << endl;

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

 mass[i] = rand() % 41 - 20;

 if (mass[i] > max) {

  max = mass[i];

  maxind = i;

 }

 if (mass[i] < min) {

  min = mass[i];

  minind = i;

 }

 cout << setw(3) << mass[i];

}

cout << endl << endl;

if (abs(minind - maxind) == 1) {

 cout << "Измененный массив:" << endl;

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

  if (mass[i] < 0) mass[i] = 0;

  cout << setw(3) << mass[i];

 }

}

else cout << "Массив не изменился";

cout << endl;

 

delete[] mass;

system("pause");

return 0;

}

Function Intg(p, b: real; n: integer; eps: real): real;
{Метод прямоугольников, рекурсия}
var
  a, x, h, s: real;
  i: integer;
begin
  a := 0;
  h := (b - a) / n;
  x := a;
  s := 0;
  for i := 1 to n do
  begin
    s := s + sin(x);
    x := x + h;
  end;
  if abs(s * h - p) > eps then
    Intg := Intg(s * h, b, 2 * n, eps)
  else
    Intg := s * h;
end;

var
  b, eps: real;

begin
  write('Задайте верхний предел интегрирования и точность: ');
  Readln(b, eps);
  writeln('Значение интеграла: ', Intg(0, b, 2, eps):0:7);
end.

Тестовое решение:

Задайте верхний предел интегрирования и точность: 2 0.000001
Значение интеграла: 1.4161460

Точное значение интеграла равно 1-cos(2) ≈1.416146836, т.е. заданная точность обеспечивается.