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

#include <bits/stdc++.h>

using namespace std;

int main()
{
    int n, minim = 10000000, maxim = 0,  k = 0;
    cin >> n;
    vector<int> a(n);
    for(int i = 0; i < n; ++i){
        cin >> a[i];
    }
    for(int i = 0; i < n; ++i){
        if(minim > a[i]){
            minim = a[i];
        }
    }
    for(int i = 0; i < n; ++i){
        if(maxim < a[i]){
            maxim = a[i];
        }
    }
    for(int i = 0; i < n; ++i){
        if(a[i] == minim)
            ++k;
    }
    for(int i = 0; i < n; ++i){
        if(a[i] == maxim)
            ++k;
    }
    int s = 0;
    for(int i = 0; i < n; ++i){
        if(a[i] != maxim && a[i] != minim)
            s+=a[i];
    }
    cout << s/n;
    return 0;
}

import random
import numpy

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

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

min_ = min(L1)
max_ = max(L1)
print("Minimum:",min_)
print("Maximum:",max_)

L2 = [i for i in L1 if i != max_ and i != min_]
print("Without Extremums:")
print(L2)
print("Average:",numpy.mean(L2))
									

program MinMax21;
var
  Min,Max,R,Sum:Real;
  N,i,RezMaxNum,RezMinNum:Integer;
 
begin
  Sum:=0;
  Write('N:');
  Readln(N);
  for i:=1 to N do
   begin
     Write(i,' элемент:');
     Readln(R);
 
     if i=1 then
      begin
       Min:=R;
       Max:=R;
       RezMaxNum:=0;
       RezMinNum:=0;
      end;
 
    if R>Max then
      begin
       if Max<>Min then Sum:=Sum+Max*RezMaxNum;
       Max:=R;
       RezMaxNum:=0;
      end;
 
     if R<Min then
      begin
       if Min<>Max then Sum:=Sum+Min*RezMinNum;
       Min:=R;
       RezMinNum:=0;
      end;
 
     if (R<>Max) and (R<>Min) then Sum:=Sum+R
     else
      begin
       if R=Min then inc(RezMinNum);
       if R=Max then inc(RezMaxNum);
      end;
 
   end;
   i:=N-RezMinNum-RezMaxNum;
 
   if i<>0 then writeln(Sum/i)
   else writeln(0);
end.