помогите пожалуйста решить программу по турбо Паскалю(массивы).

[Vodin]

Возможно. Но программа должна быть универсальной, т.е. работать во всех случаях.
короче мой вариант не подходит

[__STDC__]

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

Возможно. Но программа должна быть универсальной, т.е. работать во всех случаях.
короче мой вариант не подходит

у тебя проблема вот тут

for k:=1 to n do
 for f:=1 to n do
for i:=1 to n do
 for j:=1 to n do
 if b[i,j]=c[k,f] then sim:=true else
 begin
 sim:=false;
 break;
 end;

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

 
for i:=1 to n do
for j:=1 to n do
 if b[i,j]=c[i,j] then sim:=true else
 begin
 sim:=false;
 break;
 end;

и будет работать... возможно, если убрать break, твой вариант тоже окажется рабочим.

***
да, если убрать break, тоже будет работать

[Vodin]

Попробуй такую матрицу:
1 11 3 4
2 8 7 5
3 7 9 6
4 5 6 10
если убрать циклы k и f то программа будкт выводить 1, хотя матрица не симетрична

[__STDC__]

ну если убирать k и f, то оставшееся надо переделать примерно так

sim := true;
for i:=1 to n do
 for j:=1 to n do
 if b[i,j]<>c[i,j] then begin sim:=false; break; end;

это я в прошлом посте сглупил.. логично, что не работает, потому что ты сравниваешь там две нижние треугольные матрицы, у которых последний эл-т 0, соответственно в любом случае будет 1.