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

#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;
    }
    cout << k ;
    return 0;
}

import random

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)

L2 = [i for i in L1 if i == max_ or i == min_]
print("Extremums:")
print(L2)
print("Amount of extremums:",len(L2))
									

program MinMax20;
var
  N,Ni,Num,N1,N2,i:Integer;
 
begin
  Num:=0;
  N2:=0;
  Ni:=0;
 
  Write('N:');
  Readln(N);
  for i:=1 to N do
   begin
     N1:=N2;
     N2:=Ni;
 
     Write(i,' элемент:');
     Readln(Ni);
 
     if (i=2) and (N2<>Ni) then inc(Num)
     else if (i>2) then
        if ((N2>N1) and (N2>Ni)) or ((N2<N1) and (N2<Ni)) then
            inc(Num);
   end;
 
  if N2<>Ni then inc(Num);
  Writeln(Num);
end.