Question

Дан массив целых чисел B[N]. Заполнен с клавиатуры. Обработать массив в соответствии с заданием. - В массиве все элементы, правее которых стоит нечетное значение, заменить на 0. - После первого четного элемента вставить 0. - В массиве найти среднее арифметическое всех элементов. паскаль ,заранее спасибо :3

Answer 1

const

 N = 10;

var

 B: array[1..N+1] of integer;

 Sum, i, first_even_i: integer;

Begin

 WriteLn('Введите массив: ');

 For i := 1 to N do

   Read(B[i]);

 

 For i := 1 to N-1 do

   if (B[i+1] mod 2 <> 0) then

     B[i] := 0;

 

 For i := 1 to N do

   if (B[i] mod 2 = 0) then

   begin

     first_even_i := i;

     break;

   end;

 

 For i := N+1 downto first_even_i + 1 do

   B[i] := B[i-1];

 

 B[first_even_i] := 0;

 

 WriteLn('Среднее арифметическое всех элементов: ', Sum / (N + 1));

 WriteLn('Получившийся массив: ', B);

End.

Answer 2

Конечно, я помогу вам написать код на языке Pascal, который будет выполнять требуемую обработку массива целых чисел. Вот решение:

pascalCopy code
program ProcessArray;
const
  N = 10; // Размер массива

var
  B: array[1..N] of Integer;
  i, firstEven, sum: Integer;
  average: Real;
begin
  // Ввод массива с клавиатуры
  writeln('Введите элементы массива B:');
  for i := 1 to N do
    readln(B[i]);

  // Замена элементов на 0, правее которых стоит нечетное значение
  for i := N downto 2 do
  begin
    if B[i-1] mod 2 <> 0 then
      B[i] := 0;
  end;

  // Поиск первого четного элемента
  firstEven := 0;
  for i := 1 to N do
  begin
    if B[i] mod 2 = 0 then
    begin
      firstEven := i;
      Break;
    end;
  end;

  // Вставка 0 после первого четного элемента
  if firstEven > 0 then
  begin
    for i := N downto firstEven+1 do
      B[i] := B[i-1];
    B[firstEven+1] := 0;
  end;

  // Вычисление суммы и среднего арифметического всех элементов
  sum := 0;
  for i := 1 to N do
    sum := sum + B[i];
  average := sum / N;

  // Вывод результата
  writeln('Результат:');
  for i := 1 to N do
    writeln(B[i]);
  writeln('Среднее арифметическое: ', average:0:2);
end.

В этом коде используется массив B размером N, в котором хранятся введенные пользователем целые числа. Затем производятся следующие действия:

1. Заменяются все элементы массива B, правее которых стоит нечетное значение, на 0.
2. Находится индекс первого четного элемента и после него вставляется 0.
3. Вычисляется сумма всех элементов и их среднее арифметическое.

В конце результат выводится на экран. Пожалуйста, обратите внимание, что ввод элементов массива предполагается в стандартный ввод (с клавиатуры), а вывод результатов осуществляется через стандартный вывод (на экран). Вы можете изменить размер массива N и вводить свои числа для проверки работы программы.