Question

Придумайте массив и исполните предложенный фрагмент программы. Сформулируйте соответствующую задачу. a:=f[1]; b:=f[2]; for i:=1 to 8 do f[1]:= f[i+2]; f[9]:=a; f[10]:=b;

Answer 1

задача элементы массива переместить на 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.

Answer 2

Задача: Необходимо выполнить циклический сдвиг элементов массива f на 2 позиции влево, при этом первый элемент f[1] становится последним элементом, а второй элемент f[2] становится предпоследним элементом. Массив: f = [1, 2, 3, 4, 5, 6, 7, 8, 9, 10] Фрагмент программы: a := f[1]; b := f[2]; for i := 1 to 8 do f[i] := f[i + 2]; f[9] := a; f[10] := b; После выполнения фрагмента программы, массив f будет иметь следующий вид: f = [3, 4, 5, 6, 7, 8, 9, 10, 1, 2] Таким образом, первый и второй элементы массива становятся последними двумя элементами, а остальные элементы циклически сдвигаются на две позиции влево.