Задания
Версия для печати и копирования в MS Word
Тип Д25 C2 № 27394
i

Дан мас­сив, со­дер­жа­щий 2020 по­ло­жи­тель­ных целых чисел, не пре­вы­ша­ю­щих 15 000. Не­об­хо­ди­мо найти ми­ни­маль­ный эле­мент, зна­че­ние ко­то­ро­го крат­но 3, умень­шить все крат­ные 3 эле­мен­ты на ве­ли­чи­ну этого ми­ни­му­ма и вы­ве­сти изменённый мас­сив. Если в мас­си­ве нет эле­мен­тов, крат­ных 3, нужно вы­ве­сти мас­сив без из­ме­не­ний.

На­при­мер, для мас­си­ва из 6 эле­мен­тов, рав­ных 2, 3, 5, 9, 12, 4, нужно по­лу­чить и вы­ве­сти мас­сив, со­дер­жа­щий числа 2, 0, 5, 6, 9, 4.

На­пи­ши­те на одном из язы­ков про­грам­ми­ро­ва­ния про­грам­му для ре­ше­ния этой за­да­чи.

Ис­ход­ные дан­ные объ­яв­ле­ны так, как по­ка­за­но ниже. За­пре­ща­ет­ся ис­поль­зо­вать пе­ре­мен­ные, не опи­сан­ные ниже, но раз­ре­ша­ет­ся не ис­поль­зо­вать часть из опи­сан­ных.

Бей­сикPython

CONST N=2020

DIM A(N) AS INTEGER

DIM I, K, M AS INTEGER

FOR I = 1 TO N

    INPUT A(I)

NEXT I

…

END

# кроме уже ука­зан­ных

# до­пус­ка­ет­ся ис­поль­зо­ва­ние

# це­ло­чис­лен­ных пе­ре­мен­ных

# k, m

a = []

n = 2020

for i in range(0, n):

    a.append(int(input()))

…

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

const

    N=2020;

var

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

    i, k, m: integer;

begin

    for i:=1 to N do

        readln(a[i]);

    …

end.

алг

нач

    цел N=2020

    цел­таб a[1:N]

    цел i, k, m

    нц для i от 1 до N

        ввод a[i]

    кц

    …

кон

С++

#include <iostream>

using namespace std;

const int N=2020;

    int main(){

    int a[N];

    int i, j, k;

    for (i=0; i<N; ++i)

        cin >> a[i];

    …

    return 0;

}

 

 

В ка­че­стве от­ве­та Вам не­об­хо­ди­мо при­ве­сти фраг­мент про­грам­мы, ко­то­рый дол­жен на­хо­дить­ся на месте мно­го­то­чия. Вы мо­же­те за­пи­сать ре­ше­ние также на дру­гом языке про­грам­ми­ро­ва­ния (ука­жи­те на­зва­ние и ис­поль­зу­е­мую вер­сию языка про­грам­ми­ро­ва­ния, на­при­мер Free Pascal 2.6). В этом слу­чае Вы долж­ны ис­поль­зо­вать те же самые ис­ход­ные дан­ные и пе­ре­мен­ные, какие были пред­ло­же­ны в усло­вии.

Спрятать решение

Ре­ше­ние.

За­да­ча ре­ша­ет­ся в два про­хо­да: на пер­вом про­хо­де опре­де­ля­ет­ся ми­ни­мум, на вто­ром про­хо­де про­из­во­дит­ся кор­рек­ти­ров­ка и вывод эле­мен­тов. Воз­мож­но ре­ше­ние в три про­хо­да, когда на вто­ром про­хо­де вы­пол­ня­ет­ся толь­ко за­ме­на зна­че­ний, а на тре­тьем  — вывод.

 

Пас­каль

k := 15001;

for i := 1 to N do

    if (a[i] mod 3 = 0) and (a[i] < k) then

            k:=a[i];

for i := 1 to N do begin

    if (a[i] mod 3 = 0) then

        a[i] := a[i] - k;

    writeln(a[i])

end

Ал­го­рит­ми­че­ский язык

k := 15001

нц для i от 1 до N

    если mod(a[i], 3) = 0 и a[i] < k то

        k := a[i]

    все

кц

нц для i от 1 до N

    если mod(a[i], 3) = 0 то

        a[i] := a[i] - k

    все

    вывод a[i], нс

кц

Бей­сик

K = 15001

FOR I = 1 TO N

    IF A(I) MOD 3 = 0 AND A(I) < K THEN

        K = A(I)

    END IF

NEXT I

FOR I = 1 TO N

I    F A(I) MOD 3 = 0 THEN

        A(I) = A(I) - K

    END IF

    PRINT A(I)

NEXT I

Python

k = 15001

for i in range(0, n):

    if (a[i] % 3 == 0) and (a[i] < k):

        k=a[i]

for i in range(0, n):

    if (a[i] % 3 == 0):

        a[i] = a[i] - k

    print(a[i])

Си

k = 15001;

for (i = 0; i < N; i++)

if (a[i]%3 == 0 && a[i] < k)

    k=a[i];

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

    if (a[i]%3 == 0)

        a[i] = a[i] - k;

cout << a[i];

}

Спрятать критерии
Критерии проверки:

Кри­те­рии оце­ни­ва­ния вы­пол­не­ния за­да­нияБаллы
Пред­ло­жен пра­виль­ный ал­го­ритм, вы­да­ю­щий в ка­че­стве ре­зуль­та­та вер­ное зна­че­ние2
Не вы­пол­не­ны усло­вия, поз­во­ля­ю­щие по­ста­вить 2 балла.

Пред­ло­же­но в целом вер­ное ре­ше­ние, со­дер­жа­щее не более одной ошиб­ки из числа сле­ду­ю­щих:

1) в цикле про­ис­хо­дит выход за гра­ни­цу мас­си­ва (на­при­мер, ис­поль­зу­ет­ся цикл от 1 до N);

2) не ини­ци­а­ли­зи­ру­ет­ся или не­вер­но ини­ци­а­ли­зи­ру­ет­ся счётчик ко­ли­че­ства най­ден­ных пар;

3) счётчик ко­ли­че­ства пар в цикле не из­ме­ня­ет­ся или из­ме­ня­ет­ся не­вер­но;

4) не­вер­но про­ве­ря­ет­ся де­ли­мость на 3;

5) на де­ли­мость про­ве­ря­ют­ся не сами эле­мен­ты, а их ин­дек­сы;

6) при про­вер­ке вы­пол­не­ния усло­вия для пары эле­мен­тов ис­поль­зу­ют­ся не­вер­ные ин­дек­сы;

7) в слож­ном ло­ги­че­ском усло­вии про­стые про­вер­ки верны, но усло­вие в целом по­стро­е­но не­вер­но (на­при­мер, пе­ре­пу­та­ны опе­ра­ции «И» и «ИЛИ», не­вер­но рас­став­ле­ны скоб­ки в ло­ги­че­ском вы­ра­же­нии);

8) от­сут­ству­ет вывод от­ве­та;

9) ис­поль­зу­ет­ся пе­ре­мен­ная, не объ­яв­лен­ная в раз­де­ле опи­са­ния пе­ре­мен­ных;

10) не ука­за­но или не­вер­но ука­за­но усло­вие за­вер­ше­ния цикла;

11) ин­декс­ная пе­ре­мен­ная в цикле не ме­ня­ет­ся (на­при­мер, в цикле while) или ме­ня­ет­ся не­вер­но;

12) не­вер­но рас­став­ле­ны опе­ра­тор­ные скоб­ки

1
Не вы­пол­не­ны усло­вия, поз­во­ля­ю­щие по­ста­вить 1 или 2 балла0
Мак­си­маль­ный балл2
Спрятать решение · КритерииСпрятать критерии · Помощь


О про­ек­те · Ре­дак­ция · Пра­во­вая ин­фор­ма­ция · О ре­кла­ме
© Гущин Д. Д., 2011—2026