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