Ответы на вопрос:
1. const n = 10; var i,s: integer; m: array [1..n] of integer; begin randomize; s: =0; for i: =1 to n do begin m[i]: = random(201)-100; writeln(m[i]); end; for i: =1 to n do if m[i] mod 2 = 0 then s: =s+m[i]; writeln('summa = ',s); readln; end. 2. const n = 100; var i,p: integer; b: array [1..n] of integer; begin randomize; p: =0; for i: =1 to n do begin b[i]: = random(201)-100; writeln(b[i]); end; for i: =1 to n do if b[i] mod 3 = 0 then p: =p*b[i]; writeln('proiz = ',p); readln; end.
Популярно: Информатика
-
bbcc202.03.2023 03:56
-
Kr3sher03.08.2021 18:07
-
olgadyra24.01.2021 12:59
-
kisel201401.03.2021 14:40
-
ZeBrAiL2TW17.08.2022 06:24
-
miirko77719.05.2020 02:47
-
Iana201014.04.2022 18:22
-
allknown21.03.2020 03:40
-
ulyanae1713.01.2021 04:04
-
Pon4ik1111999926.04.2021 08:06