Задание#T4836

Дан массив, содержащий 20182018 положительных целых чисел, не превышающих 1500015 000. Необходимо уменьшить на удвоенное значение минимального элемента массива те элементы, которые более чем вдвое превышают этот минимум, и вывести изменённый массив по одному элементу в строке.
Например, для исходного массива из 55 элементов 4040 100100 2727 9090 5454 программа должна вывести числа 4040 4646 2727 3636 5454 по одному числу в строке (минимальный элемент исходного массива равен 2727, элементы, бόльшие 5454, уменьшены на 5454).
Напишите на одном из языков программирования программу для решения этой задачи.
Исходные данные объявлены так, как показано ниже. Запрещается использовать переменные, не описанные ниже, но разрешается не использовать часть из описанных переменных.
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
В качестве ответа Вам необходимо привести фрагмент программы, который должен находиться на месте многоточия. Вы можете записать решение также на другом языке программирования (укажите название и используемую версию языка программирования, например Free Pascal 2.6). В этом случае Вы должны использовать те же самые исходные данные и переменные, какие были предложены в условии.
Показать разбор
Это задание составили эксперты «СтатГрада» для Яндекса
Яндекс.Репетитор пришёл на смену сервису Яндекс.ЕГЭ, и мы активно собираем отзывы пользователей. Пожалуйста, пишите нам через форму обратной связи.