квадратная матрица N–го порядка

[Антонова Евгения]

Задача 6.2.
Определить, является ли квадратная матрица N–го порядка симметричной (относительно главной диагонали).

[UnChanter]

const N = 10;
var
  mass : array [1..N,1..N] of integer;
  i,j:integer;
  f:boolean;
begin
  f:=true;
  for i:=2 to N do
    for j:=1 to i-1 do
      if mass[i,j] <> mass[j,i] then f:=false;
  if f then Writeln('матрица симметрична!') 
  else writeln('матрица не симметрична');
end.

[was3110]

генеальный по простоте код...

[Grag]

Можно его сделать еще гениальнее, если после первого же неравенства симметричных элементов матрицы останавливать цикл проверки, а не гнать его до конца...

[UnChanter]

Сообщение от Grag

Можно его сделать еще гениальнее, если после первого же неравенства симметричных элементов матрицы останавливать цикл проверки, а не гнать его до конца...

знаю-знаю, но пускай автор сам подумает над оптимизацией, ок?