Дан массив b размерности n. найти произведение положительных четных элементов массива.
259
453
Ответы на вопрос:
Vb. dim b() as integer randomize() dim k as integer dim i as integer dim summ as long summ=1 i = inputbox("введите n") redim a(i) for k = 0 to i b(k) = rnd() * -1000 + 500 if b(k) > 0 and b(k) mod 2 =0 then summ=summ*b(k) nextmsgbox(summ)
Progra gt; var b: array[1..10000] of integer; n,i,p: linteger; begin read(n); p: =1; for i: =1 to n do begin read(b[i]); if(b[i]> 0)and(b[i] mod 2=0)then p: =p*b[i]; end; writeln(p); end.
При условии ,что x∈ [1; 4] x> 1 подходят 2 3 4. x> 2 двойку исключаем. 3 4 x ≠ 3 ,остается 4.
Популярно: Информатика
-
baltan197819.12.2021 23:30
-
V36990616.04.2022 19:19
-
Garik2312301.02.2020 13:18
-
VovanHovan16.06.2020 06:18
-
egoroff127117.05.2020 19:56
-
говнетим55502.06.2020 07:25
-
elenamatveeva314.03.2021 09:15
-
sokolin202.01.2023 12:39
-
dawdawad26.01.2023 06:15
-
андрей100500ый25.06.2021 20:06