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

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

import random

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

_max = max(L)
_min = min(L)
print("Минимум: ", _min)
print("Максимум: ", _max)

for i in range(N):
    if L[i] == _min:
        break
print("Индекс первого минимума: ", i)

for i in range(N,0,-1):
    if L[i-1] == _max:
        break
print("Индекс последнего максимума: ", i-1)
									

program MinMax6;
var
  R,Min,Max:Real;
  i,N,MinNum,MaxNum:Integer;
 
begin
  Write('N:');
  Readln(N);
  for i:=1 to N do
   begin
     Write(i,' число:');
     Readln(R);
     if i=1 then
      begin
       Min:=R;
       Max:=R;
       MaxNum:=i;
       MinNum:=i;
      end;
     if R<Min then
      begin
       Min:=R;
       MinNum:=i;
      end;
 
     if R>=Max then
      begin
       Max:=R;
       MaxNum:=i;
      end;
   end;
  Writeln(MinNum,' ',MaxNum);
end.