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

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

import random

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

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

m = max(L1)
print("Maximum:",m)
L2 = [i for i, j in enumerate(L1) if j == m]
print("Indices of max-s:")
print(L2)

last_max = max(L2)
amount = len(L1) - last_max - 1
print("Колич. элементов после послед. максимума:",amount)
									

program MinMax17;
var
 
  N,Ni,Max,MaxNum,i:Integer;
 
begin
  Write('N:');
  Readln(N);
  for i:=1 to N do
   begin
     Write(i,' число:');
     Readln(Ni);
 
     if i=1 then
      begin
       Max:=Ni;
       MaxNum:=i;
      end;
 
     if Ni>=Max then
      begin
       Max:=Ni;
       MaxNum:=i;
      end;
   end;
 
   Writeln(N-MaxNum);
end.