Решение 3

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

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

  // Вычислить среднее арифметическое.
  mean := 0;
  for i := 0 to n - 1 do
    mean := mean + sequence[i];
  mean := mean / n;

  // Увеличить каждое число в последовательности на среднее арифметическое.
  for i := 0 to n - 1 do
    sequence[i] := sequence[i] + mean;

  // Вернуть обновленную последовательность.
  return sequence;
end;

// Пример использования.
var
  sequence: array of integer = (1, 2, 3, 4, 5);
begin
  // Увеличить элементы последовательности на среднее арифметическое.
  sequence := increase_sequence_elements(5, sequence);

  // Вывести обновленную последовательность.
  for i := 0 to 4 do
    write(sequence[i], ' ');
end.
Leave a Comment