Дан целочисленный массив из 30 элементов. Элементы массива могут принимать целые значения, по абсолютной величине не превышающих 10 000. Опишите на одном из языков программирования алгоритм, который находит количество элементов массива, оканчивающихся на 4, а затем меняет такие элементы массива на полученное количество. Изменённый массив выводится на экран.
Напишите на одном из языков программирования программу для решения этой задачи. В качестве результата программа должна вывести изменённый массив, по одному элементу в строке. Например, для исходного массива из 5 элементов 112 4 27 95 148 программа должна вывести числа 112 1 27 95 148 по одному числу в строке (все элементы, оканчивающиеся на 4, были заменены на количество таких элементов).
Исходные данные объявлены так, как показано ниже. Запрещается использовать переменные, не описанные ниже, но разрешается не использовать часть из описанных.

Бейсик | Python

CONST N=30
DIM A(1 TO N) AS LONG
DIM I, K, M AS LONG
FOR I = 1 TO N
    INPUT A(I)
NEXT I
…
END

|

# кроме уже указанных
# допускается использование
# целочисленных переменных
# k, m
a = []
n = 30
for i in range(0, n):
    a.append(int(input()))
…

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

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

|

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

С++

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

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