Дан массив, содержащий 2019 положительных целых чисел, не превышающих 15 000. Необходимо найти количество нечётных элементов массива, кратных 3, заменить все чётные элементы, не кратные 3, на это количество и вывести изменённый массив. Например, для исходного массива из пяти элементов 33, 89, 27, 92, 48 программа должна вывести числа 33, 89, 27, 2, 48.
Напишите на одном из языков программирования программу для решения этой задачи.
Исходные данные объявлены так, как показано ниже. Запрещается использовать переменные, не описанные ниже, но разрешается не использовать часть из описанных.

Бейсик | Python

CONST N=2019
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 = 2019
for i in range(0, n):
    a.append(int(input()))
…

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

const
    N=2019;
var
    a: array [1..N] of integer;
    i, k, m: integer;
begin
    for i:=1 to N do
        readln(a[i]);
    …
end.

|

алг
нач
    цел N=2019
    целтаб a[1:N]
    цел i, k, m
    нц для i от 1 до N
        ввод a[i]
    кц
    …
кон

С++

#include <iostream>
using namespace std;
const int N=2019;
    int main(){
    int a[N];
    int i, j, k;
    for (i=0; i<N; ++i)
        cin >> a[i];
    …
    return 0;
}

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