Написать код программы. Lazarus IDE.
Вводится последовательность из N целых элементов. Для каждого элемента последовательности найти среднее значение его цифр. Создать функцию для расчёта среднего значения цифр в числе.

Предыдущий
вопрос Следующий
вопрос

program AverageValueDigits;

uses
SysUtils;

function CalculateAverageValueDigits(number: Integer): Double;
var
sum, count, digit: Integer;
begin
sum := 0;
count := 0;

while number <> 0 do
begin
digit := number mod 10;
sum := sum + digit;
Inc(count);
number := number div 10;
end;

if count = 0 then
Result := 0
else
Result := sum / count;
end;

var
N, element, i: Integer;
averageValue: Double;
begin
Write('Enter the number of elements in the sequence: ');
Readln(N);

for i := 1 to N do
begin
Write('Enter element ', i, ': ');
Readln(element);

end;
end.