Фри Паскаль, рабодта с массивами, Использовая рекурсивную функцию

[igor133]

Задан массив положительных случайных 4-значных чисел размером N <= 20. Найти сумму цифр каждого числа. Использовать рекурсивную функцию.

[igor133]

помогите пожалуйста, срочна

[Serge_Bliznykov]

так чем вам помочь, если Вы кроме публикации задания, ничего не сделали?!!

ладно. вот Вам код рекурсивной функции.

function SumDigit(N : integer) : integer;
begin
  if N<1 then SumDigit := N
  else SumDigit := SumDigit(N div 10) + (N mod 10)
end;

begin
  WriteLn('Сумма цифр для числа 2754 = ', SumDigit(2754));
  Readln
end.

Добавьте массив, цикл и задача решена.

[igor133]

спасиба