Вот получилось отсортировать строку:
Код:
Procedure vozr;
var k:integer;
begin
writeln('sort po vozr');
for i:=1 to n do
for j:=1 to n-1 do begin
if V[i]<V[j] then begin
k:=V[i];
V[i]:=V[j];
V[j]:=k;
end;
end;
for i:=1 to n do begin
write(V[i]:5);
end;
end;
Подскажите, плиз, каким образом менять указанные области в массиве?
Нашел что-то подобное, но там каким-то ,непонятным для меня, образом области массива меняются через целочисленное деление...
Код:
Procedure obmen(var n:integer);
Var p:Integer;
begin
p:=n div 4+1;
for i:=n div 4+1 to n div 2+1 do begin
p:=p-1;
for j:=(n div 2+1)+p to n-p do begin
tmp:=a[i,j];
a[i,j]:=a[i+(n div 2),j-(n div 2)];
a[i+(n div 2),j-(n div 2)]:=tmp;
end;
end;
end;
Вот этого не могу понять.
Тут правда другие участки меняются местами: