очень нужна помощь

[catia]

Нужно написать программу определения отношения сумм четных и нечетных элементов массива на языке паскаль. Помогите пожалуйста

[Вадим Мошев]

summOdd:=0;
sumEven:=0;

for i:=1 to N do begin
	if odd(a[i]) begin then
	 inc(summOdd)
	end else begin
		inc(summEven);
	end;
end;
	
if summOdd = 0 then begin
	writeLn('Division by zero');
end else begin
	writeLn('Ration = ', (summEven / summOdd):5:5);
end;

end;

[Аватар]

Нужно же не отношение количества таких чисел, а их сумм. Типа inc(summOdd,a[i]) И да, сумма нечетных может быть 0

[Вадим Мошев]

Ну, пусть тогда автор исправит сам. Дам подсказку: необходимо просто произвести замену inc(переменная) на inc(переменная, a[i]).

И да, сумма нечетных может быть 0

Так это же у меня учитывается вроде?

[Аватар]

Просто напомнил ТС, а то новички всегда забывают нюансы учитывать