Ре­ше­ние. Сумма двух чисел может быть крат­на 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 := 0; M2:=0;

    M3A := 0; M3B:=0;

    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>0) and (M2>0) then r1:=M1+M2

    else r1:=1;

    if (M3A>0) and (M3B>0) then r2:=M3A+M3B

    else r2:=1;

    if r1>r2 then res:=r1

    else res:=r2;

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

    readln(R);

    if R = res

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

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

end.

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

алг

нач

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

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

    цел m1=0

    цел m2=0

    цел m3a=0

    цел m3b=0

    цел 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:=imax(m1,x)

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

        все

    кц

    если m1>0 и m2>0

        то r1:=m1+m2

    иначе r1:=1

    все

    если m3a>0 и m3b>0

        то r2:=m3a+m3b

    иначе r2:=1

    все

    res:=max(r1,r2)

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

    ввод R

    если R=res

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

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

    все

кон