Исполнитель чертёжник перемещается на координатной плоскости, оставляя след в виде линии. чертёжник может выполнять команду сместиться на (a, b) (где a, b — целые числа), перемещающую чертёжника из точки с координатами (x, у) в точку с координатами (x + а, у + b). если числа a, b положительные, значение соответствующей координаты увеличивается; если отрицательные, уменьшается. например, если чертёжник находится в точке с координатами (4, 2), то команда сместиться на (2, −3) переместит чертёжника в точку (6, −1). запись повтори k раз команда1 команда2 командаз конец означает, что последовательность команд команда1 команда2 командаз повторится k раз. чертёжнику был дан для исполнения следующий алгоритм: повтори 4 раз команда1 сместиться на (2, -5) сместиться на (3, 2) конец сместиться на (−4, 8) после выполнения э того алгоритма чертёжник вернулся в исходную точку. какую команду надо поставить вместо команды команда1?

pascalвыделить код

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

uses crt;

const n=10;

var i,j,k: integer; max,min: integer; s,buf: real; f: text;  

const x: array[1..n] of integer=(5,-11,7,19,-16,3,-8,4,10,2);

begin  

assign(f,'array.pas');

rewrite (f);

writeln (f);  

writeln('массив 5,-11,7,19,-16,3,-8,4,10,2');

min: =0;

max: =0;

writeln;

writeln;

  for i: =1 to 9 do  

  if x[i] mod 2 = -1 then   if x[i]< x[i+1] then begin

                                              min: =min+x[i];  

                                              write ('минимальное нечетное x[',i,']='   ,x[i]);

                                              end;

  writeln; {сумма элементов массива между минимальным нечетным и максимальным четным}

  for i: =1 to 9 do                                              

  if x[i] mod 2 = 0   then   if x[i]> x[i+1] then begin  

                                              max: =max+x[i];  

                                              write ('максимальное четное x[',i,']='   ,x[i]);

                                              end;

                                              writeln;

                                              writeln;

  s: =0;                                            

  for i: =2 to 9 do

  begin

  s: =s+x[i];    

  writeln('сумма элементов между min нечетным и max четным = ',s: 4: 0);    

  end;

  writeln;

  writeln;

  {поменять местами максимальное четное с минимальным нечетным}

end.