Массивы, Сумма цифр элемента Опции

[Vanix]

Народ помогите решить задачу: В массиве целых чисел заменить,каждуй положительный элемент на сумму цифр этого элемента. Я решил эту прогу с помощью строк.Но нужно решить её используя div и mod,как не крутил неполучается,помогит е!!!

[volvo]

Код

const n = 10;
var
 i, x, s: integer;
 arr: array[1 .. n] of integer;
begin
 for i := 1 to n do
   begin
     x := arr[i];

     { Найдем сумму цифр числа: }
     s := 0;
     while x > 0 do
     begin
       inc(s, x mod 10); x := x div 10
     end;

     { и заменим число на найденную сумму: }
     arr[i] := s;
 end;
end.

P.S. В следующий раз называй тему по-другому...

[Vanix]

Большое спасибо!!! volvo