задача элементы массива переместить на 2 позиции назад, а первый и второй переместить на предпоследний и последний
var a,b,i:integer;
f:array[1..10] of integer;
begin
for i:=1 to 10 do
f[i]:=random(11);
write(f[i],' ');
end;
a:=f[1]; b:=f[2]; for i:=1 to 8 do f[i]:= f[i+2]; f[9]:=a; f[10]:=b;
writeln;
end.
задача элементы массива переместить на 2 позиции назад, а первый и второй переместить на предпоследний и последний
var a,b,i:integer;
f:array[1..10] of integer;
begin
for i:=1 to 10 do
begin
f[i]:=random(11);
write(f[i],' ');
end;
a:=f[1]; b:=f[2]; for i:=1 to 8 do f[i]:= f[i+2]; f[9]:=a; f[10]:=b;
writeln;
for i:=1 to 10 do
begin
write(f[i],' ');
end;
end.