Решение 1

mail@pastecode.io avatar
unknown
pascal
7 months ago
1.7 kB
0
Indexable
Never
program increase_sequence_elements;

// Эта функция принимает два аргумента: `n` - количество чисел в последовательности и `sequence` - саму последовательность.
function increase_sequence_elements(n: integer; sequence: array of integer): array of integer;
var
  i: integer;
  mean: real;
begin
  // Введите количество чисел в последовательности.
  write('Введите количество чисел в последовательности: ');
  readln(n);

  // Создайте массив для хранения обновленных чисел.
  result := array of integer[1..n];

  // Для каждого числа в последовательности
  for i := 1 to n do begin
    // Вычислите среднее арифметическое.
    mean := sum(sequence) / n;

    // Увеличьте число на среднее арифметическое.
    result[i] := sequence[i] + mean;
  end;

  // Верните массив с обновленными числами.
  return result;
end;

// Пример использования.
begin
  // Создайте последовательность из пяти чисел.
  var sequence := array of integer[1..5] := [1, 2, 3, 4, 5];

  // Увеличьте числа в последовательности на среднее арифметическое.
  sequence := increase_sequence_elements(5, sequence);

  // Выведите обновленные числа в последовательности.
  for i := 1 to 5 do begin
    write(sequence[i]);
  end;
end.
Leave a Comment