Ответы на вопрос:
//pascal abc.net 3.1 сборка 1219 var p: integer; begin p: =1; var b: =readarrinteger(14).where(x -> x< 3); foreach var i in b do p: =p*i; writeln(p); end.
Не совсем понимаю, что есть b(14), но вот вам общее решение вашей composition = 1 n = int( # считываем кол-во элементов в массиве for i in range(n) # для каждого элемента n .append(int( # добавляем элемент в массив. for j in range(len(n)) # для каждого элемента массива. if a[i] < 3: composition = composition * a[i] print(composition)
Популярно: Информатика
-
2018kat10.10.2020 21:45
-
sashamur2005103.06.2021 20:44
-
mikayilmalik216.05.2020 19:43
-
Аминочка12327.04.2023 09:35
-
Куликова200623.04.2022 05:40
-
ffggshwheehejsj25.02.2020 09:58
-
polinasenchenk10.06.2023 20:13
-
tln7217.11.2022 05:19
-
дарханнысанов20.01.2022 07:52
-
Мистер990024.04.2023 11:19