использовать Чертежник алг нач сместиться на вектор (1,10) опустить перо сместиться на вектор (3,-5) сместиться на вектор (1.6,0) поднять перо сместиться на вектор (1.4,5) опустить перо сместиться на вектор (-2.5,-9) сместиться на вектор (-3.5,0) поднять перо сместиться на вектор (7,0) опустить перо сместиться на вектор (0,9) сместиться на вектор (4,0) сместиться на вектор (1,-1) сместиться на вектор (0,-3) сместиться на вектор (-1,-1) сместиться на вектор (-4,0) поднять перо сместиться на вектор (6,-4) опустить перо сместиться на вектор (3.5,9) сместиться на вектор (3.5,-9) поднять перо сместиться на вектор (-5.5,4) опустить перо сместиться на вектор (4,0) поднять перо сместиться в точку (0,0) кон
В Паскале имеется три вида стандартных циклов: 1) цикл с параметром (цикл for ... to ... do ...) 2) цикл с предусловием (цикл while ... do ...) 3) цикл с постусловием (цикл repeat ... until ...) Программа с использованием цикла с параметром: program z1; var i:integer; x,p:real; begin p:=1; {задаем начальное значение произведения} for i:=1 to 10 do {указываем количество повторений} begin readln(x); {вводим очередное число х} p:=p*x; {умножаем введенное число х к произведению р} end; writeln(p); {вывод результата} end.
Программа с использованием цикла с предусловием: program z1; var i:integer; x,p:real; begin p:=1; {задаем начальное значение произведения} i:=1; {задаем начальное значение счетчика} while i<=10 do {задаем условие повторения цикла: пока i<=10} begin readln(x); {вводим очередное число х} p:=p*x; {умножаем введенное число х к произведению р} i:=i+1; {увеличиваем счетчик i на единицу} end; writeln(p); {вывод результата} end.
Программа с использованием цикла с постусловием: program z1; var i:integer; x,p:real; begin p:=1; {задаем начальное значение произведения} i:=1; {задаем начальное значение счетчика} repeat {повторять все указанные действия} readln(x); {вводим очередное число х} p:=p*x; {умножаем введенное число х к произведению р} i:=i+1; {увеличиваем счетчик i на единицу} until i>10; {до тех пор, пока счетчик i не станет больше 10} writeln(p); {вывод результата} end.
a=[7,4,0,3]#снова твой условный массив
i=0
k=0
while i<len(a)-1:
if a[i]>a[i+1]:#сравнивать с какой целью?
k+=1
i+=1
print(k)