Câu trả lời:
Function sdx (l:longint):boolean;
var s:string;
i,m:longint;
Begin
sdx:=false;
str(l,s);
m:=length(s);
for i:= 1 to m div 2 do
if s[i]=s[m-i+1] then
sdx:=true
else
sdx:=false;
End;
Procedure sodoixung(var a:mat);
Begin
write('cac so doi xung la: ');
for i:= 1 to n do
if sdx(a[i]) then
write(a[i]:4);
End;
Còn phần mảng bạn tự làm nha