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

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

Очень даже реально.

проверка, является ли матрица симметричной относительно средней строки:

Идешь по строкам от 1 до n div 2, и по столбцам от 1 до m и смотришь

если

X[i, j] <> X[n - i + 1, j]

то циклы прекращаются, матрица не симметрична.

можно поподробнее
код с циклами бы, а то я не представляю как это замутить
а то так мне не очень понятно

Относительно центра - это не по заданию?...
Тогда вот, например (относительно побочной диагонали): проверка матрицы на симметричность

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

вот помогли с кодом


но какаято ошибка, выдаёт - "invalid numeric format" напротив строчки
for j:=1 to 15 do readln(Matr[i,j]);

хелп в чом трабла?

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.