Ответы на вопрос:
Const n=10; var a: array[1..n] of integer; i: integer; p: real; begin randomize; for i: = 1 to n do begin a[i]: =random(111)-70; write(a[i]: 4); end; writeln; p: =1; for i: = 1 to n div 2 do p: =p*a[2*i]; writeln('p = ',p: 8: 0); end. пример: -51 34 -17 11 35 -20 -29 -58 -55 -32p = -13882880
Популярно: Информатика
-
milota509.07.2020 00:14
-
elina16200620.04.2021 17:54
-
ninayurova5125.01.2022 17:13
-
МОМОГИТИ109.05.2020 04:06
-
DashaPol0924.03.2022 20:42
-
NovaHelper08.01.2020 21:04
-
алькамалька03.12.2020 08:46
-
raia020201.04.2021 15:50
-
ls0xhand14.06.2021 18:56
-
teacupbunnies102.07.2021 01:20