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

#include <stdio.h>
int main(void){
int a[10];
int n,k,m;
printf("N: ");
scanf("%i",&n);
printf("K: ");
scanf("%i",&k);
printf("M: ");
scanf("%i",&m);

int i;
for (i=0; i<n; ++i){ 
  printf("a[%i] : ",i+1); 
  scanf("%i",&a[i]);
} 
n+=m;
for (i=n-1; i>=k+m-1; --i) 
  a[i]=a[i-m];
for (i=k-1; i<k+m-1; ++i) 
  a[i]=0;

for (i=0; i<n; ++i) 
  printf(" %i: %i\n",i+1,a[i]);

return 0;
}

import random

N = random.randrange(2,21)
K = random.randrange(0,N)
M = random.randrange(1,11)
a = [i+1 for i in range(N)]

print("N = ", N)
print("K = ", K+1)
print("M = ", M)
print("Array:\n",a)

print("Modified Array 1:\n",a[:K+1] + [0]*M + a[K+1:])

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

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

program Array105;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
var
  a : array[1..10] of Integer;
  N,K,M,i,Amax,Amin:Integer;
 
begin
  Write('N: ');
  Readln(N);
 
  Write('K: ');
  Readln(K);
 
  Write('M: ');
  Readln(M);
 
  Writeln('A: ');
  for i:=1 to N do
   begin
    write(i,' :');
    readln(a[i]);
   end;
 
  N:=N+M;
  for i:=N downto K+M+1 do a[i]:=a[i-M];
  for i:=K+1 to K+M do a[i]:=0;
 
  Writeln(N);
  for i:=1 to N do writeln(i,' :',a[i]);
  readln;
end.