На ленте размещен массив из 2n ловок. Составить программу, по которой

program zz1;

const n = 15;  // задаем количество элементов в массиве

var  i, k, s:integer; // задаем переменные целого типа

m:array [1..2*n+1] of integer;

begin

for i:=1 to 2*n do  // записываем в массив 2*n меток

m[i]:=1;

for i:=1 to 2*n do  // выводим начальный массив на экран

write(m[i], );

writeln;    // переходим на новейшую строчку для вывода ответа

for i:=2*n+1 downto n+1 do  // сдвигаем на одну клеточку на право вторую половину массива

m[i]:=m[i-1];

m[n+1]:=0;

for i:=1 to 2*n+1 do  // выводим полученный массив на экран

write(m[i], );

end.

VB. Dim A() As Integer Randomize() Dim k As Integer Dim n As Integer n = Rnd() * 100 + 1 ReDim A(n) For k = 0 To n A(k) = Rnd() * -1000 + 500 Next Dim Dump As Integer Dim u As Integer u = InputBox("Введите номер элемента для встанвки в пределах от 0 до " amp; n) ReDim Preserve A(n + 1) For k = n + 1 To u + 1 Step -1 Dump = A(k) A(k) = A(k - 1) c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535 A(k - 1) = Dump Next