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

#include <stdio.h>
 
int main(void)
{
    int a[10];
    int n,r;
 
    printf("R: ");
    scanf("%i",&r);
 
    printf("N: ");
    scanf("%i",&n);
 
    int i;
    for (i=0; i<n; ++i){
        printf("a[%i] : ",i+1);
        scanf("%i",&a[i]);
    }
 
    int min = abs(a[0]+a[1]-r), k=1;
 
    for (i=2;i<n;++i){
        if (abs(a[i-1]+a[i]-r)<min){
            min = abs(a[i-1]+a[i]-r);
            k = i;
        }
    }
    printf("%i %i\n",a[k-1],a[k]);
    return 0;
}

import random

N = random.randrange(2,21)
a = [random.randrange(1,100) for i in range(N)]
R = random.randrange(1,201)

print("N:",N)
print("Array:",a)
print("R:",R)

d_min = abs(R - (a[0] + a[1]))
i_min = 1
for i in range(2,N):
    d_tmp = abs(R - (a[i-1] + a[i]))
    if d_min > d_tmp :
        d_min = d_tmp
        i_min = i

print("Indices:", i_min-1,",",i_min)
print("Elements:", a[i_min-1],",",a[i_min])
print("Sum:", a[i_min-1] + a[i_min])
print("Diff:", d_min)
									

program Array42;
 
var
  a:array[1..10] of integer;
  N,i,k,R,Min:Integer;
 
begin
  Write('N: ');
  Readln(N);
  Write('R: ');
  Readln(R);
  for i:=1 to N do
   begin
    write(i,' :');
    readln(a[i]);
   end;
 
  Min:=abs(a[1]+a[2]-R);
  k:=2;
 
  for i:=2 to N do
    if abs(a[i-1]+a[i]-R)