Подсчитать сумму нечетных элементов массива. - Pascal

Узнай цену своей работы

Формулировка задачи:

В одномерном массивеE(A) элементы которого вводятся с клавиатуры, подсчитайте сумму нечетных элементов массива. Сформулируйте новый К(Н), который будет состоять из четных элементов массива Е(Л)

Решение задачи: «Подсчитать сумму нечетных элементов массива.»

textual
Листинг программы
Const
 A: integer = 10;
var
 E: array[1..A] of integer;
 i, summ: integer;
Begin
 summ:=0;
 For i:=1 to A do
  Begin
   Write(i,': ');
   Readln(E[i]);
   If odd(E[i]) then Inc(summ,E[i]);
  End;
 writeln(summ);
End.

Объяснение кода листинга программы

  1. Объявлены константа A = 10 и переменные E, i, summ типа integer.
  2. Инициализируется переменная summ значением 0.
  3. Запускается цикл от 1 до A с помощью оператора for.
  4. В каждой итерации цикла выводится номер элемента массива E с помощью операции Write(i, ': '), где i — переменная-счетчик цикла.
  5. С помощью операции Readln(E[i]) считывается значение элемента массива E[i].
  6. Проверяется условие odd(E[i]) — если элемент нечетный, то к переменной summ прибавляется само значение элемента E[i] с помощью операции Inc(summ, E[i]).
  7. После завершения цикла выводится значение переменной summ с помощью операции writeln(summ).

Оцени полезность:

10   голосов , оценка 4 из 5
Похожие ответы