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

#include <stdio.h>
#include <math.h>
int main(void)
{
    int a[10];
    int n;
 
    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])<abs(a[k]-a[k2])) {
                k=i;
                k2=i2;
            }
        }
    }
    printf("%i %i\n",k+1,k2+1);
    return 0;
}

import random

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

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

d_min = abs(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(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("Min Diff:", d_min)
									

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