Дана последовательность из N случайных чисел в интервале [-50;50] . Определить количество нечетных чисел имеющих четный порядковый номер.
Напишите программу через паскаль.

Предыдущий
вопрос Следующий
вопрос

program CountOddNumbers;

var
N, i, count, num: integer;

begin
count := 0;

write('Введите количество чисел в последовательности: ');
readln(N);

for i := 1 to N do
begin
write('Введите число ', i, ': ');
readln(num);
if (num mod 2 <> 0) and (i mod 2 = 0) then
count := count + 1;
end;

writeln('Количество нечетных чисел с четным порядковым номером: ', count);

end.