Регистрация
Гулчехра1022
29.02.2020 07:20
Информатика
Есть ответ 👍

Дан массив целых чисел b[n]. заполнен с клавиатуры. обработать массив в соответствии с .

- в массиве все элементы, правее которых стоит нечетное значение, заменить на 0.

- после первого четного элемента вставить 0.

- в массиве найти среднее арифметическое всех элементов.
паскаль ,заранее : 3

218
500
Посмотреть ответы 2

Ответы на вопрос:

Алеся1111115
Алеся1111115
4,5(92 оценок)

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.

efwwewe
efwwewe
4,8(68 оценок)

1) да

2) не помню если честно

Популярно: Информатика