Найти сумму нечетных элементов массива - PascalABC.NET

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

необходимо сложить нечетные элементы массива . В конце вывести начальный массив,сумму элементов и частичные суммы если парные элементы положительные, в противном случае вывести "условие не выполняется "

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

Листинг программы

sum:=0; k:=0;
for i:=1 to n do
 if odd(a[i]) then
 begin
  sum:=sum+a[i];
  inc(k);
 end;
if k<>0 then
 writeln(sum)
else
 writeln('Нет нечетных.');

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

В данном коде выполняется следующая последовательность действий:

Инициализируются две переменные: sum и k. Переменная sum устанавливается равной нулю, а переменная k равной нулю.
Запускается цикл for, который выполняется от 1 до n.
Внутри цикла проверяется, является ли элемент массива a[i] нечетным числом с помощью функции odd(a[i]).
Если элемент массива a[i] является нечетным числом, то к переменной sum прибавляется значение этого элемента, а переменная k увеличивается на единицу.
После завершения цикла проверяется значение переменной k. Если оно не равно нулю, то выводится значение переменной sum. В противном случае выводится сообщение Нет нечетных..