Подсчитать произведение чёрных элементов стоящих ** местах красных 3

Question

Подсчитать произведение чёрных элементов стоящих на местах красных 3

Comments

for i:=1 to n do

---

Но и писать на Паскале по типу "1980-й год" лишь потому, что Ваш учитель там остановился в своих знаниях, я не стану)))

---

Да не пишите дальше, всем уже ясно, какая Вам программа нужна.

---

if (i mod 3=0) and (a[i] mod 2=0)

---

помоги

---

Консольное приложение в синтаксисе ТурбоПаскаль.

---

Можно было одной фразой написать.

---

мы обычным только пользуемся)

---

Все-все. Ваш "обычный" - неважно какой он именно, использует именно этот синтаксис, о котором я написал выше (ТурбоПаскаль)

---

Это как автомобиль - неважно, какой он марки, но если сказано, что заправлять 93-м бензином, значит 93-м ))))

Answer 1

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('n=');
  var a:=ArrRandom(n,-99,99); a.Println;
  Writeln('Искомое произведение ',
      Range(2,n-1,3).Select(i->a[i]).Aggregate(BigInteger(1),(p,q)->p*q))
end.

Пример
n= 20
-9 -60 -35 90 97 68 -2 25 -69 80 -13 -24 22 -48 33 40 -75 -78 47 -89
Искомое произведение 10144854720