Решение задачи Array 106

#include <bits/stdc++.h>

using namespace std;

int main()
{
    int n;
    cin >> n;
    vector<int> a(n);
    for(int i = 0; i < n; ++i){
        cin >> a[i];
    }
    for(int i = 1; i < a.size(); i += 2){
        a.insert(a.begin() + i, a[i]);
        ++i;
    }
    for(auto i: a)
        cout << i << " ";
    return 0;
}

import random

N = random.randrange(2,13)
a = [random.randrange(0,5) for i in range(N)]

print("N = ", N)
print("Array:\n",a)

M = N//2
a.extend([0]*M)
print("Modified Array 2:\n",a)
j = 0
for i in range(N-1,0,-2) :
    a[(N+M-1)-j] = a[i]
    a[(N+M-2)-j] = a[i-(N%2)]
    a[(N+M-3)-j] = a[i-1]
    j += 3

print("Modified Array 2:\n",a)
print("Length:\n",len(a))
									

program Array106;
 
type
 m =  array[1..20] of Integer;
 
var
  a,b: m;
  N,Nk,i,k:Integer;
 
begin
  Write('N: ');
  Readln(N);
 
  Writeln('A: ');
  for i:=1 to N do
   begin
    write(i,' :');
    readln(a[i]);
   end;
 
  i:=2;
  k:=1;
  while (i<=(n div 2)*2) do
   begin
    b[k]:=a[i-1];
    inc(k);
    b[k]:=a[i];
    inc(k);
    b[k]:=a[i];
    inc(k);
    inc(i,2);
   end;
  dec(i);
  while (i=n) do
   begin
    b[k]:=a[i];
    inc(i);
    inc(k)
   end;
  dec(k);
  a:=b;
  for i:=1 to k do Writeln(a[i]);
 
end.