Пояснення до задачі і алгоритм рішення
Кожне елемент-число масиву слід розбити на цифри. Зробити це можна за допомогою послідовного знаходження залишку від ділення числа на 10 без остачі, після чого саме число ділиться без остачі на десять (щоб позбутися від останньої вже врахованої цифри). Це робиться в циклі while до тих пір, поки вихідне число не обнулится. Кожну витягнуту цифру слід додати до змінної, що містить загальну суму. Їй присвоюється нуль до входження в цикл перебору елементів масиву.
Перед тим як послідовно ділити в циклі чергове число масиву необхідно присвоїти його іншій змінній (в прикладах нижче num), інакше все елементи масиву обнуляться, хоча сума цифр вихідного масиву буде порахована.
У наведених прикладах розв'язання задачі на мовах програмування заповнення масивів і підрахунок сум виконуються в одному циклі.
Вихідний код на мові програмування Pascal
const
N = 4;
var
arr. array # 91; 1. N # 93; of integer;
i. byte;
sum. num. integer;
begin
randomize;
sum. = 0;
for i. = 1 to N do begin
arr # 91; i # 93 ;. = random # 40; 20 # 41; ;
write # 40; arr # 91; i # 93 ;. 5 # 41; ;
num. = arr # 91; i # 93; ;
while num> 0 do begin
sum. = Sum + num mod 10;
num. = Num div 10;
end;
end;
writeln;
writeln # 40; sum # 41; ;
end.