Program a;
var a: array [1..10] of integer;
n,s: integer;
begin
for i:=1 to 10 do begin
a[i]:=random(20)-10;
write(a[i]);
end;
readln(n);
for i:=n to 9 do begin
s:=a[i+1];
a[i+1]:=a[i];
a[i]:=s;
end;
for i:=1 to 9 do
writeln (a[i]);
end.
Бочка,стакан,кукла неваляшка.
Правильный ответ д) 14
Потому что после всего пройденного пути робот откажется на позиции, на которой он был после двух шагов. Нужно будет Пройти вверх(1), и на клетку влево(4).
Смотри ты хорошо выключаешь то попробуй выключить и перевернуть подуй и все просто у меня срабатывало