Дан массив, содержащий 2020 положительных целых чисел, не превышающих 15 000. Необходимо умножить все нечётные элементы, меньшие 1000, на одно и то же минимально возможное целое число так, чтобы максимальный из этих элементов стал больше 1000. Изменённый массив необходимо вывести. Если в массиве нет нечётных элементов, меньших 1000, его нужно вывести без изменений.
Например, для массива из шести элементов, равных 12, 13, 125, 18, 1001, 11, нужно получить и вывести массив, содержащий числа 12, 117, 1125, 18, 1001, 99. В этом примере максимальный нечётный элемент, меньший 1000, равен 125, его нужно умножить на 9 (при умножении на 8 получается ровно 1000, этого недостаточно), поэтому все нечётные элементы, меньшие 1000, умножаются на 9.
Напишите на одном из языков программирования программу для решения этой задачи.
Исходные данные объявлены так, как показано ниже. Запрещается использовать переменные, не описанные ниже, но разрешается не использовать часть из описанных.
| Бейсик | 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). В этом случае Вы должны использовать те же самые исходные данные и переменные, какие были предложены в условии.
PDF-версии: 