Напиши код для вычисления среднего арифметического на языке Delphi

Конечно! Вот пример кода на языке Delphi, который вычисляет среднее арифметическое для заданного массива чисел:

program AverageCalculation;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  numbers: array of Double; // Массив для хранения чисел
  sum: Double;              // Сумма чисел
  average: Double;          // Среднее арифметическое
  i, count: Integer;        // Счетчики

begin
  // Инициализация массива и количества элементов
  Write('Введите количество чисел: ');
  ReadLn(count);
  SetLength(numbers, count);
  
  // Ввод чисел
  for i := 0 to count - 1 do
  begin
    Write('Введите число ', i + 1, ': ');
    ReadLn(numbers[i]);
  end;

  // Вычисление суммы чисел
  sum := 0;
  for i := 0 to High(numbers) do
  begin
    sum := sum + numbers[i];
  end;

  // Вычисление среднего арифметического
  if count > 0 then
    average := sum / count
  else
    average := 0;

  // Вывод результата
  WriteLn('Среднее арифметическое: ', average:0:2);
  ReadLn; // Чтобы консоль не закрывалась сразу
end.

Этот код начинает с запроса количества чисел, затем запрашивает их ввод, суммирует все числа и вычисляет их среднее арифметическое. Наконец, он выводит результат на экран. Если у тебя есть вопросы о работе этого кода или нужно что-то еще, дай знать!