Проверить, является матрица симметрической Опции

[Barbudo]

Задание:
матрица D(15,15). Проверить, является ли она симметрической. Вывести на экран соответствующее сообщение.

как я понел нужно доказать чтоб в этой матрице первый и последний столбец были равны
второй с начала и второй с конца тоже равны, третий третиму с конца, четыёртый четвёртому с конца, всё относительно цента - тоесть 8 столбца.
хоть на рандоме получить такую матрицу нереально, но всёравно как это написать?(
ну или можно относительно других элементов это доказать.

Сообщение отредактировано: Barbudo - 28.05.2007 11:06

[klem4]

const n = 5;
type
  TMatrix = array [1..n, 1..n] of Integer;

var
  x: TMatrix = (
  (1, 2, 3, 4, 5),
  (5, 6, 7, 8, 9),
  (1, 1, 1, 1, 1),
  (5, 6, 7, 8, 9),
  (1, 2, 3, 4, 5)
  );

  i, j: Integer;
  ok: Boolean;

begin
  ok := true;
  i := 1;
  while (i <= n div 2) and ok do begin
    j := 1;
    while (j <= n) and ok do begin
      ok := x[i, j] = x[n - i + 1, j];
      inc(j);
    end;
    inc(i);
  end;

  if ok then writeln('ok') else writeln('bad');
end.