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

Дан мас­сив, со­дер­жа­щий 2020 целых чисел, от −10000 до 10000. Не­об­хо­ди­мо найти наи­боль­ший крат­ный 4 эле­мент этого мас­си­ва. После чего в мас­си­ве из­ме­нить все эле­мен­ты крат­ные 4 на это зна­че­ние и вы­ве­сти мас­сив.

На­пи­ши­те на одном из язы­ков про­грам­ми­ро­ва­ния про­грам­му для ре­ше­ния этой за­да­чи. В ка­че­стве ре­зуль­та­та про­грам­ма долж­на вы­ве­сти изменённый мас­сив, по од­но­му эле­мен­ту в стро­ке. На­при­мер, для ис­ход­но­го мас­си­ва из 5 эле­мен­тов 112 4 27 95 148 про­грам­ма долж­на вы­ве­сти числа 148 148 27 95 148 по од­но­му числу в стро­ке. Ис­ход­ные дан­ные объ­яв­ле­ны так, как по­ка­за­но ниже на при­ме­рах для не­ко­то­рых язы­ков про­грам­ми­ро­ва­ния. За­пре­ща­ет­ся ис­поль­зо­вать пе­ре­мен­ные, не опи­сан­ные ниже, но раз­ре­ша­ет­ся не ис­поль­зо­вать не­ко­то­рые из опи­сан­ных пе­ре­мен­ных.

Бей­сикPython

CONST N=2020

DIM A(N) AS INTEGER

DIM I, M, K AS INTEGER

FOR I = 1 TO N

    INPUT A(I)

NEXT I

…

END

# до­пус­ка­ет­ся также

#ис­поль­зо­ва­ние #це­ло­чис­лен­ных

# пе­ре­мен­ных m, k

a = []

N = 2020

for i in range(0, N):

    a.append(int(input()))

…

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

const

    N=2020;

var

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

    i, m, k: integer;

begin

    for i:=1 to N do

        readln(a[i]);

    …

end.

алг

нач

    цел N=2020

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

    цел i, m, k

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

        ввод a[i]

    кц

    …

кон

Си++

#include <iostream>

using namespace std;

const int N = 2020;

int main(){

    int a[N];

    int i, m, k;

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

        cin >> a[i];

    …

    return 0;

}

 

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

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

Ре­ше­ние.

Пас­каль

k := -10000;

for i := 1 to N do

    if (a[i] > k) and (a[i] mod 4 = 0) then

            k:=a[i];

for i := 1 to N do begin

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

        a[i] := k;

    writeln(a[i])

end

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

k := -10000

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

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

        k := a[i]

    все

кц

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

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

        a[i] := k

    все

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

кц

Бей­сик

K = -10000

FOR I = 1 TO N

    IF A(I) > k AND A(I) MOD 4 = 0 THEN

        K = A(I)

    END IF

NEXT I

FOR I = 1 TO N

    IF A(I) MOD 4 = 0 THEN

        A(I) = K

    END IF

    PRINT A(I)

NEXT I

Python

k = -10000

for i in range(0, n):

    if (a[i] > k and a[i] % 4 == 0):

        k = a[i]

for i in range(0, n):

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

        a[i] = k

    print(a[i])

Си

k = -10000;

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

if (a[i] > k && a[i]%4 == 0)

    k = a[i];

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

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

        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