Дан массив, содержащий 2018 положительных целых чисел, не превышающих 30 000. Необходимо найти в этом массиве количество элементов, которые кратны 7, а их десятичная запись заканчивается цифрой 3, и заменить каждый из таких элементов на это количество.

Напишите на одном из языков программирования программу для решения этой задачи. В качестве результата программа должна вывести изменённый массив, по одному элементу в строке. Например, для исходного массива из 5 элементов 14 13 63 203 49 программа должна вывести числа 14 13 2 2 49, по одному числу в строке.

Исходные данные объявлены так, как показано ниже. Запрещается использовать переменные, не описанные ниже, но разрешается не использовать часть из описанных.

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

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 namespacestd;
const int N=2018;
    int main(){
    int a[N];
    int i, k, m;
    for (i=0; i<N; ++i)
        cin >> a[i]; 
    …
    return 0;
}