Паскаль дана матрица (двумерный массив) размером 20 - вопрос №75682412020 от еваСИЛ 10.07.2022 02:49

Question

Информатика: Паскаль дана матрица (двумерный массив) размером 20 × 20. каждый элемент может принимать целочисленные значения от 0 до 200. опишите на языке или на одном из языков программирования алгоритм, который позволяет определить, является ли данная матрица симметричной относительно своей главной диагонали. исходные данные объявлены так, как показано ниже. запрещается использовать переменные, не описанные ниже, но разрешается не использовать часть из них. паскаль бейсик const n=20; var a: array [0..n-1,0..n-1]

еваСИЛ · Answer

Const N=20;vara: array [0..N-1,0..N-1] of integer;i, j: integer;beginfor i := 0 to N-1 do for j := 0 to N-1 do read(a[i,j]);for i := 0 to N-1 do begin for j := 0 to N-1 do write(a[i,j], ); writeln; end;i:=0; j:=0;while (i n-1)and(a[i,j]=a[j,i]) do begin i:=i+1; j:=0; while (j i)and(a[i,j]=a[j,i]) do j:=j+1; end;if a[i,j]=a[j,i] then writeln( Yes )else writeln( No );end.Пример (для N=5):1 2 3 4 5 2 8 7 9 0 3 7 4 3 1 4 9 3 2 6 5 0 1 6 8 Yes...