СДАМ ГИА: РЕШУ ЕГЭ
Образовательный портал для подготовки к экзаменам
Информатика
≡ информатика
сайты - меню - вход - новости




Задания
Версия для печати и копирования в MS Word
Задание 25 № 15147

Дан массив, содержащий 2018 положительных целых чисел, не превышающих 30 000. Необходимо найти в этом массиве количество элементов, которые кратны 7, а их десятичная запись заканчивается цифрой 3, и заменить каждый из таких элементов на это количество.

Напишите на одном из языков программирования программу для решения этой задачи. В качестве результата программа должна вывести изменённый массив, по одному элементу в строке. Например, для исходного массива из 5 элементов 14 13 63 203 49 программа должна вывести числа 14 13 2 2 49, по одному числу в строке.

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

 

 

БейсикPython

CONST N=2018

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 = 2018

for i in range(0, n):

    a.append(int(input()))

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

const

    N=2018;

var

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

    i, k, m: integer;

begin

    for i:=1 to N do

        readln(a[i]);

    …

end.

алг

нач

    цел N=2018

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

    цел i, k, m

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

        ввод a[i]

    кц

    …

кон

С++

#include <iostream>

using namespace std;

const int N=2018;

    int main(){

    int a[N];

    int i, k, m;

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

        cin >> a[i];

    …

    return 0;

}

 

 

 

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

Решение.

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

 

Пример правильной программы на языке Паскаль:

 

Паскаль

k :=0;

for i:=1 to N do begin

    if (a[i] mod 7 = 0) and (a[i] mod 10 = 3)

        then k := k + 1;

end;

for i:=1 to N do begin

    if (a[i] mod 7 = 0) and (a[i] mod 10 = 3)

        then a[i] := k;

    writeln(a[i])

end;

 

При использовании языка Python первый проход можно записать в одну строку, используя специальные средства этого языка.

 

Python

k = sum (1 for m in a if m%7 == 0 and m%10 == 3)

for i in range(0, n):

    if a[i]%7 == 0 and a[i]%10 == 3:

        a[i] = k

    print(a[i])

 

Использовать описанную выше возможность не обязательно, на языке Python допустимо описывать развёрнутый алгоритм решения, аналогичный приведённой выше программе на языке Паскаль.