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

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

import random
import statistics as stat

N = random.randrange(2,21)
#a = [random.randrange(1,11) for i in range(N)]
a = [i+1 for i in range(N)]
b = [None] * N

print("N:",N)
print("Array a:\n",a)

s_tmp = b[N-1] = a[N-1]
for i in range(N-2,-1,-1) :
    k = N - i
    s_tmp = s_tmp + a[i]
    b[i] = s_tmp / k

print("Length of b:\n",len(b))
print("Array b:\n",b)

print("Mean of a:", stat.mean(a))
									

program Array61;
 
var
  a,b:array[1..10] of real;
  N,k,k2:Integer;
 
 
begin
  Write('N: ');
  Readln(N);
 
  Writeln('A: ');
  for k:=1 to N do
   begin
    write(k,' :');
    readln(a[k]);
   end;
 
   for k:=1 to N do b[k]:=0;
 
   for k:=1 to N do
    begin
     for k2:=k to N do
      b[k]:=b[k]+a[k2];
 
     b[k]:=b[k]/(n-k+1);
    end;
 
 
  Writeln('B(',k2,'):');
  for k:=1 to N do writeln(k,' :',b[k]);
end.