Сформировать и вывести на экран массив, элементы которого заданы датчиком случайных чисел на интервале [-70, ±40] (размер произвольный). найти произведение элементов с четными номерами.
151
440
Ответы на вопрос:
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
ос обеспечивает совместное функционирование всех устройств компьютера и предоставляет пользователю доступ к его ресурсам. без неё мы не сможем пользоваться компьютером
Популярно: Информатика
-
pokintokin25.10.2020 10:25
-
Anya345689002.06.2021 04:22
-
YndoQ03.10.2022 07:24
-
Trololo228987823.09.2021 13:43
-
Rexmaster015.11.2022 13:51
-
ivanovaanastasi104.10.2020 19:58
-
milena16228.06.2023 23:43
-
kristavikown6tn25.05.2022 08:04
-
Slysly03.10.2022 04:58
-
lilililiza14.06.2022 10:09