Ответы на вопрос:
Var k,i,sum: integer; p: longint; r: array[1..15] of integer; beginp: =1; for i: =1 to 15 do beginr[i]: = random(15)-5; write(r[i]: 3); if r[i] > 0 then p: = p *r[i]; if r[i] < 0 then sum: = sum + r[i]; end; writeln; writeln('произведение положительных чисел = ',p); writeln('сумму отрицательных чисел = ',sum)end.
Популярно: Информатика
-
ffh513.03.2023 16:27
-
arinka385909.07.2021 04:18
-
agroDan12.06.2020 06:23
-
mirza2208.05.2023 05:32
-
MCKiri4PrO14.03.2023 07:45
-
urybalka2724.11.2020 22:52
-
Frizi426.07.2020 23:15
-
Аяна176502.02.2020 01:20
-
TastyDonut04.03.2020 06:43
-
Анна284903.01.2023 17:12