Решение задачи Array 48

#include <stdio.h>
int main(void)
{
    int a[10];
    int n;
 
    printf("N: ");
    scanf("%i",&n);
 
    int i;
    for (i=0; i<n; ++i){
        printf("a[%i] : ",i+1);
        scanf("%i",&a[i]);
    }
 
 
    int i2,nummax=0;
    for (i=0; i<n;++i){
        int num = 1;
        for (i2=i+1; i2<n;++i2){
            if (a[i]==a[i2]){
                ++num;
            }
        }
 
        if (num>nummax){
            nummax=num;
        }
 
    }
    printf("%i \n",nummax);
 
    return 0;
}

import random
from scipy import stats

N = random.randrange(2,21)
a = [random.randrange(1,10) for i in range(N)]

print("N:",N)
print("Array:",a)

n_repeat = 1
item = a[0]
for i in range(0,N-1) :
    n_tmp = 1
    for j in range(i+1,N) :
        if a[i] == a[j] :
            n_tmp += 1
    if n_repeat < n_tmp :
        n_repeat = n_tmp
        item = a[i]

print("Maximal repeat:", n_repeat)
print("Maximal repeating item:", item)

print(stats.mode(a))
									

program Array48;
 
var
  a:array[1..10] of integer;
  N,i,i2,Num,an,NumMax:Integer;
 
 
begin
  Write('N: ');
  Readln(N);
 
  for i:=1 to N do
   begin
    write(i,' :');
    readln(a[i]);
   end;
 
  NumMax:=0;
  an:=0;
 
  for i:=1 to N do
   begin
    Num:=0;
    for i2:=1 to N do
     if a[i]=a[i2] then Num:=Num+1;
    if Num>NumMax then
     begin
      NumMax:=Num;
      an:=a[i];
     end;
 
   end;
  Writeln(an,' - ',NumMax);
end.