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

#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 ai,i2, k, num;
    for (i=0; i<n;i++){
      num=0;
      for (i2=0; i2<n; ++i2) if (a[i]==a[i2]) ++num;
 
      if (num>2){
          k=i-1;
          ai=a[i];
          for (i2=i;i2<n;++i2)
              if (a[i2]!=ai){
                  ++k;
                  a[k]=a[i2];
              }
          n=k+1;
          --i;
      }
   }
 
    printf("A - %i\n",n);
    for (i=0; i<n; ++i) printf("  %i: %i\n",i+1,a[i]);
 
    return 0;
}

import random

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

print("N = ", N)
print("Array:\n",a)

i = 0
while i < len(a) :
    x = a[i]
    k = 0
    for y in a :
        if x == y :
            k += 1
    if k > 2 :
        flag = True
        while flag :
            try:
                a.remove(x)
            except ValueError:
                flag = False
    else :
        i += 1
        

print("Modified Array:\n",a)
print("Length:\n",len(a))
									

program Array99;
var
  a : array[1..10] of Integer;
  N,i,i2,i3,num:Integer;
 
begin
  Write('N: ');
  Readln(N);
 
  Writeln('A: ');
  for i:=1 to N do
   begin
    write(i,' :');
    readln(a[i]);
   end;
 
   i:=1;
   while (i<=N) do //основной цикл, бежим по массиву до конца
    begin
     num:=0;
     for i2:=1 to N do if a[i]=a[i2] then inc(num); //подсчитываем кол-во элементов равных a[i]
     if num<=2 then i:=i+1 //если кол-во элементов оказалось меньше 2 смотрим следующий элемент
     else // иначе
      begin
       for i2:=N downto i do // если кол-во элементов оказалось больше 2 удаляем элементы равные a[i]
        if a[i]=a[i2] then // сравниваем элементы
         begin        //если совпало удаляем
          N:=N-1;
          for i3:=i2 to N do a[i3]:=a[i3+1];
         end;
      end;
    end;
 
 
  Writeln(N);
  for i:=1 to N do writeln(i,' :',a[i]);
end.