Матрица

[TigRon]

Гуру Паскаля...прощу помощи в следующей задаче...
Задача: Проверить, симметрична ли матрица С(4,4). Вычислить произведение ее элементов.

[Don Karleone]

симметрична относительно чего?

[TigRon]

Относительно себя, если можно так сказать...

Матрица является симметричной, если она совпадает со своей транспонированной матрицей (т.е. A = A'). Другими словами, нижний треугольник квадратной матрицы является "зеркальным отражением" верхнего треугольника (например, см. ниже).

|1 2 3 4|

|2 1 5 6|

|3 5 1 7|

|4 6 7 1|

как то так наверно...

[Don Karleone]

var
  mas: array [1..4] of integer;
  i, j: integer;
  P: real;
  fl: boolean;

begin
// здесь вводишь матрицу
...............

P:=1;
fl:=true;
for i:=1 to 4 do
    for j:=1 to 4 do
        begin
            if mas[i,j] <> mas[j,i] then fl:=false;
            P:=P * mas[i,j];
        end;
if fl then writeln('симметрична относительно главной диагонали')
     else writeln('не симметрична');
writeln('произведение = ',P:1:5);
end.

про весы слева не забываем.