Question

Помогите. Язык Pascal. Заполнить массив случайным образом, состоящий из 12 элементов целого типа (диапазон от -40 до 40). Вывести новый массив, заменив значение пятого элемента среднеарифметическим исходного массива.

Answer 1

                                     PascalABC.NET                                      

Ответ:

• begin
• var a := ArrRandom(12,-40,40);
• a.Println;
• Arr(a[:4]+a.Average.Round+a[5:12]).Print;
• end.

или, можно без округления:

• begin
• var a := ArrRandom(12,-40,40);
• a.Println;
• Print(a[:4].JoinToString,a.Average,a[5:12].JoinToString);
• end.

и если вдруг выводить нужно именно массив:

• begin
• var a := ArrRandom(12,-40,40);
• a.Println;
• Arr(a[:4].Select(x->x/1)+a.Average+a[5:12].Select(x->x/1)).Print;
• end.

Пример работы:

Answer 2

Конечно, вот пример кода на языке Pascal, который выполняет задачу, о которой вы спросили:

pascalCopy code
program RandomArrayExample;

const
  N = 12; // Размер массива

var
  arr: array[1..N] of Integer;
  sum: Integer;
  avg: Real;

function CalculateAverage(arr: array of Integer): Real;
var
  i, total: Integer;
begin
  total := 0;
  for i := 0 to High(arr) do
    total := total + arr[i];
  
  CalculateAverage := total / Length(arr);
end;

begin
  // Задаем случайное зерно для генератора случайных чисел
  Randomize;

  // Заполняем массив случайными числами от -40 до 40
  for i := 1 to N do
    arr[i] := Random(81) - 40;

  // Вычисляем сумму всех элементов массива
  sum := 0;
  for i := 1 to N do
    sum := sum + arr[i];

  // Вычисляем среднеарифметическое значение
  avg := sum / N;

  // Выводим исходный массив
  WriteLn('Исходный массив:');
  for i := 1 to N do
    Write(arr[i], ' ');
  WriteLn;

  // Заменяем значение пятого элемента на среднеарифметическое
  arr[5] := Round(avg);

  // Выводим новый массив
  WriteLn('Новый массив:');
  for i := 1 to N do
    Write(arr[i], ' ');
  WriteLn;
end.

Этот код создает массив из 12 случайных чисел, заменяет пятый элемент среднеарифметическим значением исходного массива, а затем выводит исходный и новый массивы.