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