Дан массив, содержащий 2018 положительных целых чисел, не превышающих 30 000. Необходимо найти в этом массиве количество элементов, которые кратны 3, а их десятичная запись заканчивается цифрой 7, и заменить каждый из таких элементов на это количество.
Напишите на одном из языков программирования программу для решения этой задачи. В качестве результата программа должна вывести изменённый массив, по одному элементу в строке. Например, для исходного массива из 5 элементов 12 17 27 117 48 программа должна вывести числа 12 17 2 2 48, по одному числу в строке.
Исходные данные объявлены так, как показано ниже. Запрещается использовать переменные, не описанные ниже, но разрешается не использовать часть из описанных.
| Бейсик | 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 3 = 0) and (a[i] mod 10 = 7) then k := k+1; end; for i:=1 to N do begin if (a[i] mod 3 = 0) and (a[i] mod 10 = 7) then a[i] := k; writeln(a[i]) end; |
При использовании языка Python первый проход можно записать в одну строку, используя специальные средства этого языка.
| Python |
|---|
k = sum (1 for m in a if m%3 == 0 and m%10 == 7) for i in range(0,n): if a[i]%3 == 0 and a[i]%10 == 7: a[i] = k print(a[i]) |
Использовать описанную выше возможность не обязательно, на языке Python допустимо описывать развёрнутый алгоритм решения, аналогичный приведённой выше программе на языке Паскаль.