решение задач

[sonic2609]

Нужна помощь в решении задачи с помощью процедур и функций

В одномерных массивах A[1..n] и B[1..m] определить количество чисел - палиндромов (числа в которых не имеет значение направление их чтения справа - налево или слева - направо). Тот массив, где кол-во таких чисел больше, рассортировать по возрастанию, а другой по убыванию.

[Stilet]

Показывай как вводишь массивы.

[Grag]

sonic2609, сделаю за символическое вознаграждение...
Обращайся.
Контакты:
e-mail: delmas-61@mail.ru
icq: 585281783
Skype: delmas61

[sonic2609]

randomize;
for i:=1 to n do
begin
a[i]:= random (20);
write (a[i],' ');
end;
ну допустим так

[Don Karleone]

код, проверяющий является ли число n палиндромом:

  // вводим число n;
  m:=n;
  s:=1;
  k:=0;
  while m > 0 do
      begin
          k:=k * s + (m mod 10);
          if s = 1 then s:=10;
          m:=m div 10;
      end;
  if k = n then writeln('palindrom');