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

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

import random
import statistics as stat

N = random.randint(10,20)
L = random.randrange(0,N)
K = random.randint(0,L)
#N = 10
print("N = ", N)
print("L = ", L)
print("K = ", K)

A = [random.randrange(1,20) for i in range(N)]
print("Initial:")
print(A)

s = 0
for i in range(K,L+1):
    s += A[i]
    print(i,":",A[i])
print("Sum = ",s)
print("Count = ",L+1-K)
print("Average = ", s/(L+1-K))

print()
print(A[K:L+1])
print("Sum = ",sum(A[K:L+1]))
print("Count = ",len(A[K:L+1]))
print("Average = ", stat.mean(A[K:L+1]))
									

program Array21;
var
  a:array[1..10] of integer;
  N,K,L,i,Sum:Integer;
 
begin
  Write('N: ');
  Readln(N);
  Write('K: ');
  Readln(K);
  Write('L: ');
  Readln(L);
  for i:=1 to N do
   begin
    write(i,' :');
    readln(a[i]);
   end;
  Sum:=0;
  for i:=K to L do Sum:=Sum+a[i];
 
  Writeln (Sum/(L-K+1));
end.