Вычислить среднее геометрическое четных и сумму нечетных элементов массива - Pascal (8405)

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

Вычислить среднее геометрическое четных и сумму нечетных элементов массива С(10).

Решение задачи: «Вычислить среднее геометрическое четных и сумму нечетных элементов массива»

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

sr_g:=1;
ch:=0;
sum:=0;
for i:=1 to 10 do
if odd(c[i]) then
   sum:=sum+c[i]
else
begin
 sr_g:=sr_g*c[i];
 inc(ch);
end;
 
if ch>0 then
writeln('среднее геометрическое ',sr_g/ch:0:2);
 
writeln('суммa нечетных ', summ:0:0)

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

Переменная sr_g инициализируется значением 1.
Переменная ch инициализируется значением 0.
Переменная sum инициализируется значением 0.
Запускается цикл for, который выполняется от 1 до 10.
Внутри цикла проверяется, является ли элемент массива c[i] нечетным.
Если элемент нечетный, то переменная sum увеличивается на значение элемента и сохраняется в переменной sum.
Если элемент четный, то переменная sr_g умножается на значение элемента и переменная ch увеличивается на 1.
После завершения цикла, если переменная ch больше 0, то выводится среднее геометрическое sr_g/ch и сумма нечетных элементов sum.