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

#include <stdio.h>
int main(void)
{
    float r,min;
    int i,n,minnum;
    printf("N:");
    scanf("%i", &n);
    for (i=1;i<=n;++i){
        printf("%i>",i);
        scanf("%f", &r);
        if ((i==1)||(r<min)){
            min=r;
            minnum=i;
        }
    }
    printf("%i\n", minnum);
    return 0;
}

import random

N = random.randrange(1,15)
print("N = ",N)
i = 1
x = random.randrange(1,15)
min_x = x
min_idx = i
print(i, " : ", x)
while  i < N:
    i += 1
    x = random.randrange(1,15)
    print(i, " : ", x)
    if x < min_x:
        min_x = x
        min_idx = i
print("Minimum: ", min_x)
print("Minimum's index: ", min_idx)
									

program MinMax4;
var
  R,Min:Real;
  i,N,MinNum:Integer;
 
begin
  Write('N:');
     Readln(N);
  for i:=1 to N do
   begin
     Write('Введите ',i,' элемент:');
     Readln(R);
     if i=1 then
      begin
       Min:=R;
       MinNum:=i;
      end;
     if R<Min then
      begin
       Min:=R;
       MinNum:=i;
      end;
   end;
  Writeln(MinNum);
end.