Зимой и летом одним цветом
Автор координатной плоскости -Декарт Рене
Видать расписать как для робота схему поведения
чем подробней тем лучше, например
зайти в кладовку
взять веник
взять совок
выйти из кладовки
пройти в помещение, которое необходимо подмести
движениями слева направо сметать мусор в сторону (многократно, пока все помещение не будет подметено)
собрать мусор веником в одну кучку
кучку мусора веником замести на совок
подойти к мусорному ведру
высыпать мусор из совка в мусорное ведро
пройти в кладовку и поставить на место веник и совок
как то так.. степень подробности выбирайте сами
Const n=?; {Кол-во элементов в массиве, написать число вместо "?"}
Var a,b:array[1..n] of integer;
x,k,i,j:integer;
Begin
writeln('Init massive:');
for i:=1 to n do
begin
readln(x); {а лучше написать <em>read(x);</em> и вводить числа через пробел одной строкой, красивее будет}
a[i]:=x;
end;
k:=n div 2;
if (n mod 2)<>0 then k:=k+1;
j:=1;
for i:=(k+1) to n do
begin
b[j]:=a[i];
j:=j+1;
end;
if (n mod 2)<>0 then
begin
b[k]:=a[k];
k:=k-1;
j:=j+1;
end;
for i:=1 to k do
begin
b[j]:=a[i];
j:=j+1;
end;
for i:=1 to n do write(b[i],' ');
End.