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

Question

Информатика

Курекле

13 сентября, 11:53

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

+4

Ответы (1)

Знаете ответ?

Ахаткул · 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.