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

#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);
        scanf("%i",&a[i]);
    }
 
    int sum=0;
    for (i=0; i<k-1; ++i) sum+=a[i];
    for (i=l; i<n; ++i) sum+=a[i];
    printf("%i\n: ",sum);
    return 0;
}

import random
import statistics as stat

N = random.randint(10,20)
L = random.randrange(1,N)
K = random.randint(1,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
c = 0
for i in range(0,N):
    if i not in range(K,L+1):
        c += 1
        s += A[i]
        print(i,":",A[i])
print("Sum = ",s)
print("Count = ",c)
print("Average = ", s/c)

A1 = [j for i, j in enumerate(A) if i not in range(K,L+1)]
print()
print(A1)
print("Sum = ",sum(A1))
print("Count = ",len(A1))
print("Average = ", stat.mean(A1))
									

program Array22;
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:=1 to k-1 do Sum:=Sum+a[i];
  for i:=l+1 to n do Sum:=Sum+a[i];
 
  Writeln (Sum);
end.