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

#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 i2,k=0,k2=1;
    for (i=0; i<n-1;++i){
        for (i2=i+1; i2<n;++i2){
            if (abs(a[i]+a[i2]-r)<abs(a[k]+a[k2]-r)) {
                k=i;
                k2=i2;
            }
        }
    }
    printf("%i %i\n",k+1,k2+1);
    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 = 0
j_min = 1
for i in range(0,N-1) :
    for j in range(i+1,N) :
        #print(i,":",j)
        d_tmp = abs(R - (a[i] + a[j]))
        if d_min > d_tmp :
            d_min = d_tmp
            i_min = i
            j_min = j
            
print("Indices:", i_min,",",j_min)
print("Elements:", a[i_min],",",a[j_min])
print("Sum:", a[i_min] + a[j_min])
print("Min Diff:", d_min)
									

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