Ответы на вопрос:
Uses graphabc; var x,y: integer; begin x: =windowwidth div 2; y: =windowheight-80; rectangle(x-100,y,x+100,y+50); circle(x-100,y-100,20); circle(x+100,y-100,20); line(x,y,x-86,y-86); line(x,y,x+86,y-86); line(x,y,x,y-160); arc(x,y-140,20,0,180); end.
Будем считать, что массив в уже в памяти компьютера. тогда cls result = 1 for i=0 to 15 if b(i)< 0 then result = result * b(i) next print "произведение отрицательных членов массива в равно" print result
Популярно: Информатика
-
nikita54wwe22.02.2023 17:55
-
Septarik10.06.2020 23:21
-
апааапаппаа24.03.2020 02:03
-
Kdjs25.05.2022 16:45
-
if39547827.03.2022 23:24
-
125VikA12507.01.2021 20:01
-
MatveyGTR28.10.2021 16:20
-
misha23060428.06.2023 11:45
-
xalka200408.06.2023 22:45
-
helooooo05.05.2021 02:54