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

@net_haker1 · Регистрация: 02.10.2013

Определить является ли массив 3 на 3 симметричным относительно главной диагонали.

@teleprog · 21.11.2013, 15:38

Примерно так, код непроверял.

Delphi

const n=3;
var m:array[1..n,1..n]of Integer;
i,j:integer;
begin
  for i:=1 to 3 do
  for j:=1 to 3 do
    m[i,j]:=Random(10);
  if (m[1,1]=m[n,n]) and
     (m[1+1,1]=m[n,n-1]) and
     (m[1,1+1]=m[n-1,n])
     then Writeln('Массив симетричен')
     else  Writeln('Массив НЕ симетричен');
end;

@net_haker1 0 / 0 / 2 Регистрация: 02.10.2013 Сообщений: 155
		1
	Симметричность матрицы относительно главной диагонали 21.11.2013, 10:22. Показов 1917. Ответов 1 Метки нет (Все метки) Определить является ли массив 3 на 3 симметричным относительно главной диагонали. 0

Опции темы