В матрице найти все числа-палиндромы

Задача. Дана матрица. В этой матрице найти все числа-палиндромы и сформировать из нее другую матрицу [n,3] где n – это количество палиндромов. В полученной матрице в первый столбец записать сами числа, во второй – индекс строки, а в третий – индекс столбца этих чисел.

вот код:

program eight; const n=4; var i,j,q:integer; r,m,k,f:integer; {в m записываем число, которое проверяем, есть ли оно палиндромом или нет} {f - "сигнал" палиндром\не палиндром} a:array [1..n,1..n] of integer; b:array [1..n*n,1..3] of integer; begin q:=0; {*кол-во палиндромов} writeln('Введите массив'); for i:=1 to n do for j:=1 to n do begin write('Элемент ',i,' ',j,':'); readln(a[i,j]); end; for i:=1 to n do begin for j:=1 to n do write(a[i,j]:5); writeln; end; for i:=1 to n do for j:=1 to n do begin m:=a[i,j]; r:=1; k:=0; f:=1; while (m div 10)>0 do begin m:=m div 10; r:=r*10; k:=k+1; end; m:=a[i,j]; for i:=1 to k div 2 do begin if ((m div r)<>(m mod 10)) then f:=0; m:=(m mod r) div 10; r:=r div 100; end; if f=0 then begin q:=q+1; b[q,1]:=a[i,j]; b[q,2]:=i; b[q,3]:=j; end; end; for i:=1 to q do begin for j:=1 to 3 do write(b[i,j]:4); writeln; end; readln; end.

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

0

ОГО!!! с первого раза пошла)))

program eight;
uses crt;
const n=10;
var i,j,q,w:integer;
r,m,k,f:integer;

a:array [1..n,1..n] of integer;
b:array [1..n*n,1..3] of integer;
begin
clrscr; Randomize;
for i:=1 to n do begin
for j:=1 to n do
begin
a[i,j]:=random(500); write(a[i,j]:4);
end; writeln; end;
q:=0;
for i:=1 to n do
for j:=1 to n do
begin
m:=a[i,j];
r:=1; k:=0; f:=0;
while (m div 10)>0 do
begin
m:=m div 10;
r:=r*10;
k:=k+1;
end;

m:=a[i,j];

w:=1;
REPEAT
if ((m div r)=(m mod 10)) then f:=1;

m:=(m mod r) div 10;
r:=r div 100; w:=w+1
Until (w>(k div 2)) or (f=0);

if f=1 then
begin
q:=q+1;
b[q,1]:=a[i,j];
b[q,2]:=i;
b[q,3]:=j;
end;
end;

for i:=1 to q do
begin
for j:=1 to 3 do
write(b[i,j]:4);
writeln;
end;

readln;
end.

Добавлено через 17 минут 6 секунд
ваша ошибка была в том, что вы в цикле
for i:=1 to k div 2 do
begin
if ((m div r)<>(m mod 10)) then f:=0;

m:=(m mod r) div 10;
r:=r div 100;
end;
использовали і, а потом это значение использ. дальше b[q,1]:=a[i,j];
тоесть а[i,j] - это уже не было первоначальное число, а совсем другое,
а вторая ошибка, что if f=0 then begin, а должно быть f=1.
третяя: в указаном цикле, если например первая и последняя цифра числа не совпадают, а дальше по приближению к середине все совпадает, то число выходит палиндромом, тоесть вы судите только по 2 цифрам, которые в средине, а НАДА обеспечить условный выход из цикла, если есть какое-то несовпадение...
но в целом вы сделали не малую часть работы, что ускорило мое решение))
ЗЫ: не забудьте нажать на "Спасибо"

1