Ре­ше­ние. При за­дан­ных огра­ни­че­ни­ях числа в на­бо­ре могут иметь длину от 1 до 8. Не­об­хо­ди­мо со­здать мас­сив из 8 эле­мен­тов с ин­дек­са­ми от 1 до 8 и ис­поль­зо­вать его для подсчёта ко­ли­че­ства чисел со­от­вет­ству­ю­щей длины. Ис­поль­зо­ва­ние мас­си­ва не де­ла­ет про­грам­му не­эф­фек­тив­ной по па­мя­ти, так как раз­мер мас­си­ва не за­ви­сит от N. Затем нужно найти зна­че­ние ми­ни­маль­но­го эле­мен­та этого мас­си­ва и вы­ве­сти ми­ни­маль­ный из ин­дек­сов эле­мен­тов, рав­ных этому ми­ни­му­му, и сам ми­ни­мум. Ниже при­ве­де­на ре­а­ли­зу­ю­щая опи­сан­ный выше ал­го­ритм про­грам­ма на языке Пас­каль (ис­поль­зо­ва­на вер­сия PascalABC)

При­мер пра­виль­ной и эф­фек­тив­ной про­грам­мы на языке Пас­каль

var

N: integer; {ко­ли­че­ство чисел}

a: longint; {оче­ред­ное число}

d: array[1..8] of integer; {под­счет}

mn: integer; {ми­ни­маль­ное ко­ли­че­ство}

imn: integer; {самая ред­кая длина}

i,k: integer;

begin

for i:=1 to 8 do d[i]:=0;

readln(N);

for i:=1 to N do begin

readln(a);

k:=0;

while a>0 do begin

k := k+1;

a := a div 10;

end;

d[k] := d[k]+1;

end;

mn := N+1;

for i:=1 to 8 do begin

if (d[i] < mn) and (d[i] > 0) then begin

mn := d[i];

imn := i;

end;

end;

writeln(imn, ' ', mn)

end.

При­мер пра­виль­ной, но не­эф­фек­тив­ной про­грам­мы на языке Пас­каль

var

    N: integer; {ко­ли­че­ство чисел}

    val: integer; {самая ред­кая длина}

    a: array [1..1000] of integer;

    min_lenght: integer; {ми­ни­маль­ное ко­ли­че­ство}

    i, j, k, lenght: integer;

begin

    readln(N);

    for i:=1 to N do read(a[i]);

    for i:=1 to N do begin

        k:=0;

        while a[i]>0 do begin

            k:=k+1;

            a[i] := a[i] div 10;

        end;

        a[i]:=k;

    end;

    for i:=1 to N-1 do

        for j:=1 to N-i do

            if a[j]>a[j+1] then begin

                k := a[j];

                a[j] := a[j+1];

                a[j+1] := k;

            end;

    min_lenght := N+1;

    lenght := 1;

    for i := 1 to N do

        if a[i]=a[i+1] then

            lenght := lenght + 1

        else if lenght < min_lenght then begin

            min_lenght := lenght;

            val := a[i];

            lenght := 1;

        end;

    writeln(val, ' ', min_lenght);

end.

Вме­сто опре­де­ле­ния ко­ли­че­ства цифр с по­мо­щью по­сле­до­ва­тель­но­го де­ле­ния на 10 можно ис­поль­зо­вать выбор по диа­па­зо­ну до­пу­сти­мых зна­че­ний. На­при­мер, в при­ведённой выше про­грам­ме можно вме­сто при­сва­и­ва­ния k:=0 и сле­ду­ю­ще­го за ним цикла while ис­поль­зо­вать такую по­сле­до­ва­тель­ность дей­ствий:

if a<10 then k:=1

else if a<100 then k:=2

else if a<1000 then k:=3

else if a<10000 then k:=4

else if a<100000 then k:=5

else if a<1000000 then k:=6

else if a<10000000 then k:=7

else k:=8;

Можно также пре­об­ра­зо­вы­вать число в стро­ку или сразу чи­тать его как стро­ку и опре­де­лять длину числа как длину со­от­вет­ству­ю­щей стро­ки. Ниже при­ве­де­на такая про­грам­ма на языке Java (ис­поль­зо­ва­на вер­сия JDK 1.8.0_66)

При­мер пра­виль­ной и эф­фек­тив­ной про­грам­мы на языке Java

import java.util.Scanner;

import java.lang.String;

public class problem27b {

public static void main(String args[]){

Scanner scan = new Scanner(System.in);

int N; // ко­ли­че­ство чисел

String a; // оче­ред­ное число КАК СТРО­КА

int d[] = new int[9]; // под­счет чисел дан­ной длины

int mn; // ми­ни­маль­ное ко­ли­че­ство в d

int imn=0; // самая ред­кая длина

int i, k;

for (i = 1; i < 9; i++) {d[i] = 0;}

N = scan.nextInt();

for (i = 1; i <= N; i++) {

a = scan.next();

k = a.length();

d[k] = d[k]+1;

}

mn = N+1;

for (i=1; i<9; i++)

if ((d[i] < mn) && (d[i]>0)) {

mn = d[i];

imn = i;

}

System.out.println(imn+" "+mn);

}

}

При­во­дим эф­фек­тив­ное ре­ше­ние Ни­ко­лая Ар­тю­хи­на на C++.