Дан массив из 10 целых чисел заполненный случайными числами из интервала [-15; 15]. Определить является ли произведение элементов массива имеющих нечетные порядковые номера четным числом.

program ch;

var a: array [1 ... 10] of integer;

i: integer;

b:boolean;

begin

b: = false;

randomize;

for i:=1 to 10 do

begin

a[i]:=random (31) - 15; / /заполнение массива числами

write (a[i],' '); / /печать элементов массива

if (i mod 2 > 0) and (a[i] mod 2 = 0) then b: = true;

//Если номер элемента нечетный, а сам элемент - четное число,

//тогда произведение будет четным. Отвечающей за четность

//переменной b будет присвоено значение true (истина).

//Если на нечетных местах будет несколько четных элементов, то

//переменная b будет подтверждена несколько раз, значение false / /она не получит.

end;

writeln ();

if b then write ('Product is even number ')

else write ('Product is an odd number')

end.