Составьте программу которая формирует массив из 10 целых чисел из промежутка [-7 7] и выводит на экран сформированный массив и произведение отрицательных элементов массива
288
443
Ответы на вопрос:
Var i,pr: integer; a: array[1..10]of integer; begin pr: =1; for i: =1 to 10 do begin a[i]: =7-random(14)+1; if a[i]< 0 then pr: =pr*a[i]; writeln(a[i]); end; writeln('proizvedenie: ',pr); end.
Популярно: Информатика
-
jandar20019.11.2020 06:12
-
nikolaivanov1109.02.2021 12:59
-
newsosnovskiymp06yuf23.03.2022 22:44
-
vadim115420.12.2020 19:01
-
dasha1232810.09.2021 06:24
-
akakkakksksak07.11.2022 06:59
-
koshka2615.04.2021 12:46
-
opalinskayavik28.08.2021 15:33
-
fat1004.06.2021 10:14
-
ksyusa4123.01.2020 18:13