Ответы на вопрос:
Const n=13; var a: array[1..n] of integer; i: integer; p: longint; begin randomize; writeln('элементы массива'); p: =1; for i: =1 to n do begin a[i]: =random(11)+5; write(a[i]: 3); if (i mod 2)=0 then p: =p*a[i] end; writeln; writeln('произведение четных элементов равно ',p) end. тестовое решение: элементы массива 9 14 5 10 6 15 14 12 11 8 8 11 13 произведение четных элементов равно 2217600
Популярно: Информатика
-
Mrmors13.07.2021 05:42
-
Maxi200711.05.2022 23:48
-
катуааа07.03.2021 22:58
-
algriskova0612.01.2023 10:58
-
Vceohenploxo23.06.2020 23:05
-
миша109325.11.2022 05:25
-
riblika1103.12.2022 19:18
-
646967830.12.2021 10:53
-
андрюха8703.04.2023 17:21
-
якура13.03.2023 13:04