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.