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

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

import random

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

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

for i in range(N):
    if L[i] == _max or L[i] == _min:
        k = i
print("Индекс последнего экстремума: ", k)

									

program MinMax11;
var
  i,N,Ni,Min,Max,MinNum,MaxNum:Integer;
 
begin
  Write('N:');
  Readln(N);
  for i:=1 to N do
   begin
     Write(i,' элемент:');
     Readln(Ni);
     if i=1 then
      begin
       Min:=Ni;
       Max:=Ni;
       MinNum:=i;
       MaxNum:=i;
      end;
     if Ni<=Min then
      begin
       Min:=Ni;
       MinNum:=i;
      end;
 
     if Ni>=Max then
      begin
       Max:=Ni;
       MaxNum:=i;
      end;
   end;
 
   if MinNum > MaxNum then Writeln(MinNum)
   Else Writeln(MaxNum);
   Readln;
end.