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

1. Для заданной квадратной матрицы найти такие $$k$$, что $$k$$-я строка матрицы совпадает с $$k$$-м столбцом.

Нужно найти такие номера $$k$$, для которых $$k$$-я строка квадратной матрицы совпадает с $$k$$-м столбцом. Это означает, что для всех $$j$$ должно выполняться равенство $$a[k,j]=a[j,k]$$.

Проверим каждую строку матрицы и сравним её элементы с элементами соответствующего столбца. Если для некоторого $$k$$ все пары элементов совпадают, то такой номер подходит.

const n = 5;
var a: array[1..n,1..n] of integer;
i, j, k: byte;

f: boolean;
begin
  randomize;
  writeln(‘Исходный массив:’);
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      a[i,j] := random(19) — 9;
      write(a[i,j]:3);
    end;
    writeln;
  end;
  writeln;
  f := false;
  for k := 1 to n do
  begin
    f := true;
    for j := 1 to n do
      if a[k,j] <> a[j,k] then f := false;
    if f then
    begin
      writeln(‘Строка ‘, k, ‘ совпадает со столбцом ‘, k);
      for j := 1 to n do
        write(a[k,j]:3);
      writeln;
    end;
  end;
  if not f then
    writeln(‘Таких строк нет’);
end.

В программе для каждого $$k$$ проверяется условие $$a[k,j]=a[j,k]$$ для всех $$j=1,2,\dots,n$$. Если условие выполняется, строка совпадает с соответствующим столбцом.

Ответ: нужно проверить все $$k$$ от $$1$$ до $$n$$ и выбрать те, для которых $$a[k,j]=a[j,k]$$ при всех $$j$$.