Question

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

Answer 1

Для каждого элемента последовательности...

Answer 2

Для решения данной задачи в Lazarus IDE можно написать следующий код:

program AverageDigits;

uses
  SysUtils;

function CalculateAverageDigits(num: Integer): Double;
var
  sum: Integer;
  count: Integer;
  digit: Integer;
begin
  sum := 0;
  count := 0;
  
  while num > 0 do
  begin
    digit := num mod 10; // получаем последнюю цифру числа
    sum := sum + digit; // добавляем цифру к сумме
    count := count + 1; // увеличиваем счетчик цифр
    num := num div 10; // удаляем последнюю цифру числа
  end;
  
  if count > 0 then
    Result := sum / count // вычисляем среднее значение цифр
  else
    Result := 0; // если число не содержит цифр, возвращаем 0
end;

var
  sequence: array of Integer;
  i: Integer;
  num: Integer;
begin
  Write('Введите количество элементов в последовательности: ');
  ReadLn(num);
  
  SetLength(sequence, num);
  
  for i := 0 to num - 1 do
  begin
    Write('Введите элемент последовательности: ');
    ReadLn(sequence[i]);
  end;
  
  for i := 0 to num - 1 do
  begin
    WriteLn('Среднее значение цифр в числе ', sequence[i], ': ', CalculateAverageDigits(sequence[i]));
  end;
end.

В данном коде мы создаем функцию `CalculateAverageDigits`, которая принимает целое число и вычисляет среднее значение его цифр. Затем мы запрашиваем у пользователя количество элементов в последовательности и сами элементы. Для каждого элемента последовательности мы вызываем функцию `CalculateAverageDigits` и выводим результат.

Примечание: Данный код предоставлен в качестве примера и может быть доработан или оптимизирован в зависимости от конкретных требований и условий задачи.

Источники: -(https://www.google.com) - Free Pascal and Lazarus - Calamo -(https://www.google.com) - -(https://www.google.com) - Free Pascal Lazarus -(https://www.google.com) - ++ Qt Creator -(https://www.google.com) -