Чертёжнику был дан для исполнения следующий алгоритм: Повтори 20 раз Сместиться на вектор (-3, -4) Сместиться на вектор (3, 3) Сместиться на вектор (1, -2) Конец На какую единственную команду можно заменить этот алгоритм?

ответ:Сместиться на вектор (1, -3)

Объяснение:Прибавь все значения и получишь такой ответ

Const
   M = 3;
   N = 4;
Var
   A:array[1..M,1..N] of integer;
   i,j,k:integer;
Begin
Randomize;
WriteLn('Исходный массив:');
For i:= 1 to M do
    Begin
    For j:= 1 to N do
        Begin
        A[i,j]:=random(71)-30;
        Write(A[i,j]:3,' ')
        End;
    WriteLn;
    End;
Write('Номер столбца: ');
For j:= 1 to N do
    Write(j:3,' ');
WriteLn;
Write('Искомое кол-во:');
For j:= 1 to N do
    Begin
    k:=0;
    For i:= 1 to M do
        if A[i,j]>0 then k:=k+1;
    Write(k:3,' ');
    End;
End.

Пример:
Исходный массив:
 33 -21 -24   4
-20  28 -29  25
-15  -1  11   3
Номер столбца:   1   2   3   4
Искомое кол-во:  1   1   1   3

Const
   N = 13;
Var
   A:array[1..N] of integer;
   i,Min:integer;
Begin
Randomize;
Write('Исходый массив:');
For i:= 1 to N do
    Begin
    A[i]:=random(10000)-5000;
    Write(' ',A[i])
    End;
WriteLn;
Min:=1000;
For i:= 1 to N do
    if (99<Abs(A[i]))and(Abs(A[i])<1000)and(A[i] mod 7 = 0)and(A[i]<Min) then
       Min:=A[i];
if Min = 1000 then WriteLn('В массиве нет трёхзначных элементов, кратных семи')
else WriteLn('Min = ',Min);
End.

Пример:
Исходый массив: 2635 4814 -2784 1015 -462 -50 4069 -4566 578 168 707 660 -731
Min = -462