Вычислить суммы разрядов чисел - Free Pascal

Формулировка задачи:

Массив из 100 элементов заполнен случайными числами от 10 до 99. Вывести на экран суммы разряда едениц и разряда десятков чисел, находящихся в массиве.

Решение задачи: «Вычислить суммы разрядов чисел»

Листинг программы

var
  a: array [1..100] of Integer;
  i, d, e: Integer;
begin
  Randomize;
  for i:=Low(a) to High(a) do begin
    a[i]:=10+Random(90); Write(a[i]:4);
    Inc(d,a[i] div 10); Inc(e,a[i] mod 10);
  end; WriteLn;
  WriteLn('Суммы разрядов десятков ',d,', единиц ',e);
end.

Объяснение кода листинга программы

Объявляются переменные: — a: массив из 100 целых чисел; — i, d, e: целочисленные переменные.
В цикле от 0 до 99 (так как индексы массива начинаются с 0) выполняются следующие действия: — a[i]:=10+Random(90) — генерируется случайное число от 10 до 99; — Write(a[i]:4) — выводится на экран значение a[i] в формате 4 символа; — Inc(d,a[i] div 10) — значение a[i] делится на 10 и результат увеличивается на 10 (для подсчета суммы разрядов десятков); — Inc(e,a[i] mod 10) — значение a[i] берется по модулю 10 и результат увеличивается на 10 (для подсчета суммы разрядов единиц).
После выполнения цикла выводится на экран сумма разрядов десятков и единиц.