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

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

Сначала сформируем одномерный массив из элементов главной диагонали квадратной матрицы: $$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$$, нечётные строки не изменены.