Исполнитель чертёжник пе­ре­ме­ща­ет­ся на ко­ор­ди­нат­ной плоскости, остав­ляя след в виде линии. чертёжник может вы­пол­нять ко­ман­ду сместиться на (a, b) (где a, b — целые числа), пе­ре­ме­ща­ю­щую чертёжника из точки с координатами (x, у) в точку с ко­ор­ди­на­та­ми (x + а, у + b). если числа a, b положительные, зна­че­ние со­от­вет­ству­ю­щей ко­ор­ди­на­ты увеличивается; если отрицательные, уменьшается.

например, если чертёжник на­хо­дит­ся в точке с координатами (4, 2), то ко­ман­да сме­стить­ся на (2, −3) пе­ре­ме­стит чертёжника в точку (6, −1).

запись
повтори k раз
команда1 команда2 ко­ман­даз
конец
означает, что по­сле­до­ва­тель­ность ко­манд команда1 команда2 командаз по­вто­рит­ся k раз.

чертёжнику был дан для ис­пол­не­ния сле­ду­ю­щий алгоритм:
повтори 5 paз
сместиться на (0, 1) сме­стить­ся на (−2, 3) сме­стить­ся на (4, −5) конец

каковы ко­ор­ди­на­ты точки, с ко­то­рой чертёжник на­чи­нал движение, если в конце он ока­зал­ся в точке с ко­ор­ди­на­та­ми (−1, −1)?

1) (−11, 4)
2) (4, −11)
3) (8, 22)
4) (22, 8)

1) program Array16;

var

i:integer; // счетчик в цикле

N:integer;

a: array [1..10] of integer;

begin

writeln('Введите N (N<10)');

readln(N); // ввод размера массива

for i:=1 to N do

begin

write('a[',i,']=');

readln(A[i]); // ручной ввод значений массива

end;

writeln('Результат');

for i:=1 to N do

begin

// вычисление и вывод элементов в указанном порядке

write(' ',a[(i div 2+1)*((i) mod 2)+ n*((i+1)mod 2)-((i div 2)-1)*((i+1) mod 2)]);

end;

end.

2) Var A:array[1..100] of integer;

i,n:byte;

Begin

write('Введите n<=100: ');readln(n);

For i:=1 to n do

Begin

A[i]:=random(31);

write(A[i]:3);

End;

writeln;

For i:=1 to n div 2 do

write(A[i]:3,A[n-i+1]:3);

if n mod 2 <>0 then write(A[n div 2+1]:3);

End.

#include <iostream>

#include <vector>

using namespace std;

void solve(){

   int m,n;

   cin >> m >> n;

   vector<vector<int>> a(m,vector<int>(n));

   vector<bool> b(m, true);

   for(int i = 0; i < m; i++)

       for(int j = 0; j < n; j++)

           cin >> a[i][j];

   for(int i = 0; i < m; i++)

       for(int j = 1; j < n; j++)

           if(a[i][j] <= a[i][j-1])

               b[i] = false;

   for(auto i : b) cout << i << " ";

}

signed main(){

   solve();

}