Дан массив из 10 целых чисел заполненный случайными числами из интервала [-15; 15]....

Question

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

Comments

начинать отсчёт с нулевого элемента или с первого?

---

c нулевого

---

ладно, начну с нулевого

---

окей:)

---

да, небольшой прикол, в большинстве случаев произведение- чётное

---

это плохо?

---

нет, просто ответ в подавляющем большенстве случаев будет чётное

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.

Comments

в задаче интервал -15;15, а тут от 0 до 9, или чего-то не понял?)

---

от 0 до 9 это количество ячеек массива

---

аа, спасибо)

---

а интервал это a[b]:=random(30)-15;