Целочисленная квадратная матрица

[Оля89]

Помогите, пожалуйста, решить задачу в Паскале ABC.
Дана целочисленная квадратная матрица порядка n. Найти номера строк, элементы которых образуют симметрические последовательности.

Заранее спасибо большое!

[TinMan]

Оля, вот так как-то попробуй сделать:

for i:=1 to n do begin
  j:= 1;
  while (j<=n div 2) and (a[i,j]=a[i,n-j+1]) do inc(j);
  if j>n div 2 then writeln(i)
end;

Принцип такой:
идем по каждой строке до ее середины или пока не накроется симметрия. Если после этого счетчик превышает половину n (целое деление пополам), то это значит, что симметрия так и не сломалась на всем проходе. Значит, это искомая строка.
Если не совсем понятно - спрашивай.