Ре­ше­ние. Сумма двух чисел может быть крат­на 3 в двух слу­ча­ях: либо оба сла­га­е­мых крат­ны 3, либо оста­ток от де­ле­ния на 3 од­но­го из них равен 1, а дру­го­го – 2.

Про­грам­ма, вы­чис­ля­ю­щая кон­троль­ное зна­че­ние, чи­та­ет все вход­ные дан­ные один раз, не за­по­ми­ная их в мас­си­ве. Для про­чи­тан­но­го фраг­мен­та вход­ной по­сле­до­ва­тель­но­сти про­грам­ма хра­нит зна­че­ния самых ма­лень­ких чисел, да­ю­щих при де­ле­нии на 3 остат­ки 1 и 2, и два самых ма­лень­ких числа, крат­ных 3.

М1 – самое ма­лень­кое число, да­ю­щее при де­ле­нии на 3 оста­ток 1;

М2 – самое ма­лень­кое число, да­ю­щее при де­ле­нии на 3 оста­ток 2;

M3A – самое ма­лень­кое число, крат­ное 3;

M3B – вто­рое по ве­ли­чи­не наи­мень­шее число, крат­ное 3.

После того, как все дан­ные про­чи­та­ны, ис­ко­мое кон­троль­ное зна­че­ние вы­чис­ля­ет­ся, как мень­шая из сумм M1 + M2 и M3A + M3B, но пре­жде чем вы­чис­лять каж­дую из этих сумм, нужно убе­дить­ся, что вхо­дя­щие в неё сла­га­е­мые пре­де­ле­ны, то есть в по­сле­до­ва­тель­но­сти были числа с со­от­вет­ству­ю­щи­ми остат­ка­ми.

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

var M1,M2,M3A,M3B,R,r1,r2,res,i,N,x: longint;

begin

    M1 := 1001; M2:=1001;

    M3A := 1001; M3B:=1001;

    readln(N);

    for i := 1 to N do begin

        readln(x);

        case x mod 3 of

            0:

                if x < M3A then begin

                    M3B:=M3A; M3A:=x

                end

                else if x < M3B then M3B:=x;

            1:

                if x < M1 then

                    M1:=x;

            2:

                if x < M2 then

                    M2:=x;

                end;

            end;

    if (M1<1001) and (M2<1001) then r1:=M1+M2

    else r1:=2000;

    if (M3A<1001) and (M3B<1001) then r2:=M3A+M3B

    else r2:=2000;

    if r1 < r2 then res:=r1

    else res:=r2;

    if res=2000 then res:=1;

    writeln('Вы­чис­лен­ное кон­троль­ное зна­че­ние: ',res);

    readln(R);

    if R = res

        then writeln('Кон­троль прой­ден')

    else writeln('Кон­троль не прой­ден');

end.

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

алг

нач

    цел N | ко­ли­че­ство чисел на входе

    цел x | ис­ход­ные дан­ные

    цел m1=1001

    цел m2=1001

    цел m3a=1001

    цел m3b=1001

    цел R | вве­ден­ное кон­троль­ное зна­че­ние

    цел r1,r2

    цел res | вы­чис­лен­ное кон­троль­ное зна­че­ние

    ввод N

    нц N раз

        ввод x

        выбор

            при mod(x,3)=0:

        выбор

            при x < m3a:

                m3b:=m3a; m3a:=x

            при x < m3b:

                m3b:=x

        все

    при mod(x,3)=1: m1:=imin(m1,x)

    при mod(x,3)=2: m2:=imin(m2,x)

    все

кц

если m1<1001 и m2<1001

    то r1:=m1+m2

иначе r1:=2000

все

если m3a<1001 и m3b<1001

    то r2:=m3a+m3b

иначе r2:=2000

все

res:=min(r1,r2)

если res=2000 то res:=1 все

вывод нс, 'Вы­чис­лен­ное кон­троль­ное зна­че­ние: ',res

ввод R

если R=res

    то вывод нс, "Кон­троль прой­ден"

иначе вывод нс, "Кон­троль не прой­ден"

все

кон