Как создать массив из n чисел в Delphi, отобразить его элементы на форме, вычислить среднее арифметическое элементов массива и выяснить, сколько элементов в массиве отличаются от среднеарифметического, а также вывести их количество?

Информатика 11 класс Массивы и работа с ними в Delphi создать массив в Delphi массив из n чисел отображение элементов массива среднее арифметическое массива элементы массива количество элементов отличающихся от среднего Новый

Создание массива, отображение его элементов на форме и вычисление среднего арифметического в Delphi можно выполнить с помощью следующих шагов. Давайте рассмотрим процесс подробно.

Шаг 1: Создание массива

Сначала необходимо объявить массив и заполнить его n числами. Для этого можно использовать ввод данных от пользователя.

1. Откройте Delphi и создайте новый проект.
2. На форме разместите компоненты: TEdit для ввода количества элементов, TButton для запуска программы, TLabel для вывода результатов.

Пример кода для создания массива:

var
  n: Integer;
  arr: array of Integer;
begin
  n := StrToInt(Edit1.Text); // Получаем количество элементов из Edit1
  SetLength(arr, n); // Устанавливаем размер массива

  for i := 0 to n - 1 do
  begin
    arr[i] := StrToInt(InputBox('Введите число', 'Число ' + IntToStr(i + 1), '')); // Заполняем массив
  end;
end;

Шаг 2: Отображение элементов массива

Теперь, когда массив заполнен, нужно отобразить его элементы на форме.

var
  output: String;
begin
  output := '';
  for i := 0 to n - 1 do
  begin
    output := output + IntToStr(arr[i]) + ' '; // Формируем строку для вывода
  end;
  Label1.Caption := output; // Отображаем результат в Label
end;

Шаг 3: Вычисление среднего арифметического

Чтобы вычислить среднее арифметическое, нужно суммировать все элементы массива и разделить на количество элементов.

var
  sum: Integer;
  average: Double;
begin
  sum := 0;
  for i := 0 to n - 1 do
  begin
    sum := sum + arr[i]; // Суммируем элементы
  end;
  average := sum / n; // Вычисляем среднее арифметическое
  Label2.Caption := 'Среднее арифметическое: ' + FloatToStr(average); // Отображаем среднее
end;

Шаг 4: Подсчет элементов, отличающихся от среднего арифметического

Теперь нужно выяснить, сколько элементов массива отличаются от среднего арифметического.

var
  count: Integer;
begin
  count := 0;
  for i := 0 to n - 1 do
  begin
    if arr[i] <> Round(average) then // Сравниваем с округленным средним
      count := count + 1; // Увеличиваем счетчик
  end;
  Label3.Caption := 'Количество элементов, отличающихся от среднего: ' + IntToStr(count); // Выводим результат
end;

Шаг 5: Запуск программы

После того, как вы написали весь код, запустите программу, чтобы проверить её работоспособность. Убедитесь, что все элементы правильно отображаются, среднее арифметическое вычисляется корректно, и количество элементов, отличающихся от среднего, также отображается.

Таким образом, вы научились создавать массив, отображать его элементы, вычислять среднее арифметическое и определять количество элементов, отличающихся от него в Delphi.