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

#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]-r), k=1;
 
    for (i=1;i<n;++i){
        if ((abs(a[i]-r))<min){
            min = (abs(a[i]-r));
            k = i;
        }
    }
    printf("%i \n",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,101)

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

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

print("Index:",i_min)
print("Element:",a[i_min])
print("Minimal distance:",d_min)
									

program Array40;
var
  a:array[1..10] of integer;
  N,i,k,R,Min:Integer;
 
begin
  a[1]:=0;
  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]-R);
  k:=1;
 
  for i:=1 to N do
    if abs(a[i]-R)