Question

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

Answer 1

Var b,pr:integer;
    a: array [0..9] of integer;
    begin
randomize;
pr:=1;
for b:=0 to 9 do begin
  a[b]:=random(30)-15;
  write(a[b],' ');
  if (b mod 2 <>0) then pr:=a[b]*pr;
end;
if pr mod 2 = 0 then writeln('чётное');
if pr mod 2 <> 0 then writeln('нечётное');
end.