Т.к. всего команд выполнено 40, x из них "Назад 1", а x-8 "Вперёд 2". 2x-8=40, значит 24 команды "Назад 1" и 16 команд "Вперёд 2". Он переместился вперёд на 16*2=32 единиц и назад на 24 единицы, т.е. за выполнение всей программы он переместился вперёд на 32-24=8 единиц. Ответ: Вперёд 8
Const
N = 13;
Var
A:array[1..N] of integer;
i:integer;
Begin
Randomize;
For i:= 1 to N do
Begin
A[i]:=random(21)-10;
Write(A[i],' ')
End;
WriteLn;
i:=1;
While i <= N do
Begin
Write(A[i],' ');
i:=i+2;
End;
WriteLn;
i:=2;
While i <= N do
Begin
Write(A[i],' ');
i:=i+2;
End;
End.
Плохо понел задание, но думою помог
uses crt;
var i,n:integer;
begin
writeln('Введите n');
read(n);
i:=122;
while i > 96+n do
begin
write(' ',Chr(i));
i:=i-1;
end;
end.