Предмет: Информатика,
автор: loid2
Подсчитать произведение чёрных элементов стоящих на местах красных 3
loid2:
for i:=1 to n do
Но и писать на Паскале по типу "1980-й год" лишь потому, что Ваш учитель там остановился в своих знаниях, я не стану)))
Да не пишите дальше, всем уже ясно, какая Вам программа нужна.
if (i mod 3=0) and (a[i] mod 2=0)
помоги
Консольное приложение в синтаксисе ТурбоПаскаль.
Можно было одной фразой написать.
мы обычным только пользуемся)
Все-все. Ваш "обычный" - неважно какой он именно, использует именно этот синтаксис, о котором я написал выше (ТурбоПаскаль)
Это как автомобиль - неважно, какой он марки, но если сказано, что заправлять 93-м бензином, значит 93-м ))))
Ответы
Автор ответа:
0
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
Внимание! Если программа не работает, обновите версию!
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
Похожие вопросы
Предмет: Українська мова,
автор: plitvinenko423
Предмет: Геометрия,
автор: vasilateymurova
Предмет: Другие предметы,
автор: niko6813
Предмет: Биология,
автор: ooooolove
Предмет: Математика,
автор: 74510