Матрица. Проверить симметричность относительно побочной диагонали

@jMk · Регистрация: 10.05.2012

спс большое, можете еще эту посмотреть -
Дана матрица, надо проверить симметричность (симметрия относительной побочной диагонали).

@КонецСвета · 11.05.2012, 11:57

саму диагональ не учитываю...

Pascal

uses crt;
const n=3;
var a: array [1..n,1..n] of byte;
    i,j: byte;
    b: boolean;
begin
writeln('Введите матрицу');
for i:=1 to n do
    for j:=1 to n do
        begin
        write('a[',i,',',j,']='); readln(a[i,j]);
        end;
b:=true;
for i:=1 to n do
    begin
    for j:=1 to n do
        write(a[i,j]:4);
    writeln;
    end;
for i:=1 to n do
    for j:=1 to n-i do
        if a[i,j]<>a[n-i+1,n-j+1] then b:=false;
writeln(b);
end.

@jMk 0 / 0 / 0 Регистрация: 10.05.2012 Сообщений: 5
		1
	Матрица. Проверить симметричность относительно побочной диагонали 11.05.2012, 11:29. Показов 5374. Ответов 1 Метки нет (Все метки) спс большое, можете еще эту посмотреть - Дана матрица, надо проверить симметричность (симметрия относительной побочной диагонали). 0

Опции темы

Матрица. Проверить симметричность относительно побочной диагонали

Решение