Работа 3.7 Упр.22 ГДЗ Семакин 10 класс (Информатика)

Рассмотрим вариант решения задания из учебника Семакин, Хеннер, Шеина 10 класс, Бином: 22. Для заданной квадратной матрицы сформировать одномерный массив из ее диагональных элементов. Найти след матрицы, просуммировав элементы одномерного массива. Преобразовать исходную матрицу по правилу: четные строки разделить на полученное значение, нечетные оставить без изменения.

Сначала сформируем одномерный массив из элементов главной диагонали квадратной матрицы: $$b_i=a_{i,i}$$. Затем найдём след матрицы как сумму этих элементов:

$$s=\sum_{i=1}^{n} b_i$$

После этого преобразуем исходную матрицу: элементы чётных строк разделим на найденный след $$s$$, а элементы нечётных строк оставим без изменения.

const nmax = 15;
var a: array[1..nmax,1..nmax] of real;
  b: array[1..nmax] of real;
  n, i, j: integer;
  s: real;
begin
  randomize;
  repeat
    write(‘Размер матрицы до ‘, nmax, ‘ n=’);
    readln(n);
  until n in [1..nmax];

  writeln(‘Исходная матрица:’);
  s := 0;
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      a[i,j] := 10 * random;
      write(a[i,j]:5:2);
      if i = j then
      begin
        b[i] := a[i,j];
        s := s + b[i];
      end;
    end;
    writeln;
  end;

  writeln;
  writeln(‘Массив элементов главной диагонали:’);
  for i := 1 to n do
    write(b[i]:5:2);
  writeln;
  writeln(‘След=’, s:0:2);

  writeln(‘Преобразованная матрица:’);
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      if i mod 2 = 0 then a[i,j] := a[i,j] / s;
      write(a[i,j]:5:2);
    end;
    writeln;
  end;
  readln;
end.

Ответ: массив диагонали составлен из элементов $$a_{i,i}$$, след матрицы найден как $$s=\sum_{i=1}^{n} a_{i,i}$$, чётные строки исходной матрицы разделены на $$s$$, нечётные строки не изменены.