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

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

import random

N = random.randint(10,20)
#N = 17
print("N = ", N)

L1 = [random.randint(1,10) for i in range(N)]
print("Initial:")
print(L1)

print("Odd indices:")
print(L1[1::2])    
L3 = [j for i, j in enumerate(L1) if i%2 == 1]
print(L3)

print("Even indices:")
x = int((N-1)/2)*2 + 1
L1_1 = L1[0:x]
print((L1_1)[::-2])    
L2 = [j for i, j in enumerate(L1) if i%2 == 0]
print(L2[::-1])
									

program Array15;
var
  a:array[1..10] of integer;
  N,i:Integer;
 
begin
  Write('N:');
  Readln(N);
  for i:=1 to N do
   begin
    write(i,' :');
    readln(a[i]);
   end;
 
  i:=1;
  While (i<=N) do    begin     writeln(i,' : ',a[i]);     i:=i+2;    end;     i:=(N div 2)*2;     While (i>=1) do
   begin
    writeln(i,' : ',a[i]);
    i:=i-2;
   end;
end.