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

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

import random

N = random.randrange(3,21)
print("N = ", N)

a = [random.randrange(0,10) for i in range(N)]

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

print("Array:\n",a)

x_prev = a[0]
x_curr = a[1]
x_next = a[2]
for i in range(2,N-1) :
    a[i-1] = (x_prev + x_curr + x_next) / 3
    x_prev, x_curr, x_next = x_curr, x_next, a[i+1]
a[i] = (x_prev + x_curr + x_next) / 3
    
print("Modified Array:\n",a)
									

program Array78;
var
  a : array[1..10] of real;
  AkOld,Sred: real;
  N,i:Integer;
 
begin
  Write('N: ');
  Readln(N);
 
  Writeln('A: ');
  for i:=1 to N do
   begin
    write(i,' :');
    readln(a[i]);
   end;
 
  AkOld:=a[1];
  a[1]:=(a[1]+a[2])/2;
 
  for i:=2 to N-1 do
   begin
    Sred:=(AkOld+a[i]+a[i+1])/3;
    AkOld:=a[i];
    a[i]:=Sred;
   end;
 
  a[N]:=(AkOld+a[N])/2;
 
  for i:=1 to N do writeln(i,' :',a[i]);
end.