Как изменить программу нахождения суммы всех элементов массива так, чтобы: 1) массив состоял из 20 символьных

Lisenok

30

Для того чтобы изменить программу нахождения суммы всех элементов массива так, чтобы результатом программы была сумма четных элементов, необходимо внести следующие изменения:

1) Изменить объявление переменной "а" на массив[1..n] из целых чисел. В данном случае мы хотим, чтобы массив состоял из 20 символьных элементов, значит, нужно изменить тип данных с вещественных чисел на целые числа.

2) Изменить инициализацию элементов массива. Вместо использования случайной функции случайное(10), которая генерирует случайное число в диапазоне от 0 до 10, мы хотим, чтобы значения элементов массива менялись в диапазоне от 0 до 30. Для этого, можно использовать функцию случайное(31), которая будет генерировать случайные числа от 0 до 30.

3) Изменить вычисление суммы элементов массива. Вместо вычисления общей суммы всех элементов массива, нам нужно вычислить сумму только четных элементов. Для этого, нужно сделать следующие изменения:
- Инициализировать переменную "s" значением 0 перед циклом вычисления суммы.
- В цикле вычисления суммы, добавить условие проверки на четность элемента массива. Если элемент четный, то его значение нужно прибавить к сумме "s".

Вот конечный вид программы с учетом всех изменений:

pascal

Пиши("Исходный массив:");



Для i:=1 до n сделай 

  begin

    a[i] := случайное(31);

    Пиши("a[",i,"] =", a[i], " ");

  end;



s:=0;



Для i:=1 до n сделай 

  begin

    Если a[i] mod 2 = 0 тогда

      s := s + a[i];

  end;



Пиши("Сумма четных элементов массива S =", s);

Теперь программа будет выводить сгенерированный массив из 20 элементов, значения которых находятся в диапазоне от 0 до 30, а в качестве результирующего значения будет выводиться сумма четных элементов массива.

Если у вас остались какие-либо вопросы, пожалуйста, задавайте!