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

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

import random

K = random.randrange(1,5)
N = random.randrange(K+1,21)
##N = 6
##K = 1
print("K = ", K)
print("N = ", N)

a = [i+1 for i in range(N)]

##for i in range(0,N):
##    a[i] = i

print("Array:\n",a)

print("Modified Array 1:\n", a[N-K:] + a[:N-K] )

b = []
for i in range(N-K,N) :
    b.append(a[i])
for i in range(N-1,K-1,-1) :
    a[i] = a[i-K]
for i in range(0,K) :
    a[i] = b[i]
#a[0] = x

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

program Array85;
var
  a : array[1..10] of Integer;
  N,K,i,i2,An:Integer;
 
begin
  Write('N: ');
  Readln(N);
 
  Write('K: ');
  Readln(K);
 
  Writeln('A: ');
  for i:=1 to N do
   begin
    write(i,' :');
    readln(a[i]);
   end;
 
  for i2:=1 to K do
   begin
    An:=A[N];
    for i:=N downto 2 do a[i]:=a[i-1];
    a[1]:=An;
   end;
 
  for i:=1 to N do writeln(i,' :',a[i]);
end.