Является ли целочисленная матрица симметричной относительно главной диагонали

@zhumabek · Регистрация: 25.11.2011

Студворк — интернет-сервис помощи студентам

1.Определить является ли целочисленная матрица симметричной относительно главной диагонали. При отсутствии симметрии заменить элементы нулями.

@abcpascal · 09.12.2011, 19:35

Pascal

program Project1;
uses
  crt;
const m = 3;
      n = 3;
var A: Array[1..m,1..n] of Integer;
    i,j,k,l: Integer;
 
begin
Randomize;
  for i := 1 to m do
    for j := 1 to n do
      begin
        A[i,j] := Random(9);
      end;
 
    for i := 1 to m do
      begin
        WriteLn;
        for j := 1 to n do
          Write(A[i,j],' ');
      end;
      Writeln;
 
  for i := 1 to m do
    for j := 1 to i - 1 do
  for k := m downto 1 do
    for l := n downto k+1 do
      if A[i,j] <> A[k,l] then
        begin
          A[i,j] := 0;
          A[k,l] := 0;
        end;
 
    for i := 1 to m do
      begin
        WriteLn;
        for j := 1 to n do
          Write(A[i,j],' ');
      end;
  ReadLn;
end.

@zhumabek 1 / 1 / 1 Регистрация: 25.11.2011 Сообщений: 63
		1
	Является ли целочисленная матрица симметричной относительно главной диагонали 09.12.2011, 16:33. Показов 1835. Ответов 1 Метки нет (Все метки) 1.Определить является ли целочисленная матрица симметричной относительно главной диагонали. При отсутствии симметрии заменить элементы нулями. 0

Опции темы

Является ли целочисленная матрица симметричной относительно главной диагонали

Решение