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

#include <stdio.h>
int main(void)
{
    int a[10],b[10];
    int n;
 
    printf("N: ");
    scanf("%i",&n);
 
    int k;
    for (k=0; k<n; ++k){
        printf("a[%i] : ",k+1);
        scanf("%i",&a[k]);
    }
 
    int i=-1;
    for (k=0; k<n; k+=2){
        ++i;
        b[i]=a[k];
    }
 
    printf("B: \n size : %i\n", ++i);
    for (k=0; k<i; ++k) printf("  %i: %i\n",k+1,b[k]);
 
    return 0;
}

import random

N = random.randrange(2,15)
#a = [random.randrange(1,11) for i in range(N)]
a = [i for i in range(N)]
b = a[1::2]

print("N:",N)
print("Array a:\n",a)
print("Length of b:\n",len(b))
print("Array b:\n",b)
									

program Array55;
var
  a,b:array[1..15] of Integer;
  N,k,k2:Integer;
 
 
begin
  Write('N: ');
  Readln(N);
 
  Writeln('A: ');
  for k:=1 to N do
   begin
    write(k,' :');
    readln(a[k]);
   end;
 
 
  k2:=0;
  K:=1;
  While(k<=N) do
    begin
     inc(k2);
     b[k2]:=a[k];
     k:=k+2;
    end;
 
  Writeln('B(',k2,'):');
  for k:=1 to k2 do writeln(k,' :',b[k]);
end.