Двумерные массивы:сумма цифр чисел..., думала,писала,но совсем запуталась :( Опции

[Jane]

Помогите,появуста,решить задачу-не могу сдать зачёт!!!
:molitva:
"Дана последовательность не более 30 ненулевых целых
чисел, последним числом в последовательности является 0. Вве-
дите последовательность в одномерный массив и напечатайте в порядке возрастания элементы, сумма цифр в которых находится в интервале от А до В. Использование дополнительных массивов запрещено."

Jane@tlt.ru

Сообщение отредактировано: Jane - 19.12.2004 0:54

[Jane]

Реорганизуйте массив, исключив все элементы, содержащие повторяющиеся цифры, и сожмите массив влево, упорядочив по убыванию оставшиеся элементы.Нельзя использоавть дополнительные массивы.

Можно заменить

Код

      while T > 0 do
        begin
          s := s + (T mod 10);
          T := T div 10;
        end;

на

Код

while T>0 do
  begin
   T1:=T mod 10;
   T:=T div 10;
   end;
  if T=T1 then

или я глупости пишу???А если да,то что тогда делать после then???
Объясните мне,пожалста...