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

shopiakprod shopiakprod    2   01.10.2019 21:10    1

Ответы
aikab03 aikab03  02.09.2020 13:56

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

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика