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

#include <stdio.h>
int main(void)
{
    int a[20];
    int n;
    printf("N: ");
    scanf("%i",&n);
 
    int i;
    for (i=0; i<n; ++i){
        printf("a[%i] : ",i+1);
        scanf("%i",&a[i]);
    }
 
    int i2,i3;
    for (i=n-((n-(n/2)*2)-1)-1; i>=0; i-=2){
        for (i3=1; i3<3;++i3){
            ++n;
            for(i2=n-1; i2>i; --i2) a[i2]=a[i2-1];
        }
 
    }
 
    for (i=0; i<n;++i) printf("  %i: %i\n",i+1,a[i]);
 
    return 0;
}

import random

N = random.randrange(2,10)
#a = [i+1 for i in range(N)]
a = [random.randrange(2,10) for i in range(N)]
print("N = ", N)
print("Array:\n",a)

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

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

program Array107;
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;
  Nk:=N;
  k:=1;
  for i:=1 to N do
   begin
    b[k]:=a[i];
    if i mod 2 <> 0 then
     begin
      Nk:=Nk+2;
      k:=k+1;
      b[k]:=a[i];
      k:=k+1;
      b[k]:=a[i];
     end;
    K:=k+1;
   end;
 
  N:=Nk;
  a:=b;
  Writeln(N);
  for i:=1 to N do writeln(i,' :',a[i]);
end.