Ответы на вопрос:
Вот код на pascalabc. var b,o,i: integer; a: array[1..9] of integer; beginfor i: =1 to 9 do readln(a[i]); o: =1; for i: =1 to 9 do begin if a[i]> 0 then begin b: =a[i]; o: =o*b; end; end; writeln(o); end.p.s. последовательность надо вводить через enter. если хочешь через пробел измени 5 строчку кода на read(a[i]);
Популярно: Информатика
-
wiamous129.01.2022 03:29
-
karina3651714.04.2020 13:21
-
МахитоТ11.11.2020 17:16
-
likaizmaylova15.09.2020 17:07
-
Дубой27.01.2021 02:18
-
dorisova16.05.2022 19:58
-
Дмитртй1115.06.2023 05:05
-
alina13lina8723.01.2023 05:50
-
Откровение07.06.2023 11:53
-
dbarkhatova26.05.2020 08:15