Решение задачи Minmax 25

#include <stdio.h>
int main(void)
{
    int n,i,imul;
    float r1=0,r2=0,minmul=0;
 
    printf("N:");
    scanf("%i", &n);
    for (i=1; i<=n; ++i){
        r2=r1;
        printf("%i>",i);
        scanf("%f", &r1);
 
        if ((i==2)||(r1*r2<minmul)) {
            minmul=r2*r1;
            imul=i;
        }
 
    }
    printf("%i %i\n",imul-1,imul);
    return 0;
}

import random

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

L = [random.randint(1, 15) for i in range(N)]
print("Initial:",L)

mn = L[0] * L[1]
mn_idx = 0
i = 0
for i_curr, i_next in zip(L,L[1:]):
    x = i_curr * i_next
    if x < mn:
        mn = x
        mn_idx = i
    #print(i_curr,i_next)
    i += 1
print("\nMinimum of pairs:",mn)
print("Indices:",mn_idx,mn_idx+1)

mn = L[0] * L[1]
mn_idx = 0
for i in range(1,len(L)-1):
    x = L[i] * L[i+1]
    if x < mn:
        mn = x
        mn_idx = i
    #print(L[i],L[i+1])
print("\nMinimum of pairs:",mn)
print("Indices:",mn_idx,mn_idx+1)
									

program Minmax25;
 
var
  R1,R2,MinMul:Real;
  N,i,iMul:Integer;
 
begin
  MinMul:=0;
  R1:=0;
  R2:=0;
  Write('N:');
  Readln(N);
  for i:=1 to N do
   begin
     R2:=R1;
 
     Write(i,' число:');
     Readln(R1);
 
 
     if i=2 then
      begin
       MinMul:=R2*R1;
       iMul:=i;
      end;
 
     if R1*R2<MinMul then
      begin
       MinMul:=R2*R1;
       iMul:=i;
      end;
 
    end;
   writeln(iMul-1,' ',iMul);
end.