Question

Дан целочисленный массив из 30 элементов. Элементы массива могут принимать целые значения, по абсолютной величине не превышающих 10 000. Опишите на одном из языков программирования алгоритм, который находит количество элементов массива, оканчивающихся на 4, а затем меняет такие элементы массива на полученное количество. Изменённый массив выводится на экран.

Напишите на одном из языков программирования программу для решения этой задачи. В качестве результата программа должна вывести изменённый массив, по одному элементу в строке. Например, для исходного массива из 5 элементов `112 4 27 95 148` программа должна вывести числа `112 1 27 95 148` по одному числу в строке (все элементы, оканчивающиеся на 4, были заменены на количество таких элементов).

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

| Python |
|---|
| ```python a = [] n = 30 for i in range(0, n):     a.append(int(input())) ``` |

| Паскаль |
|---|
| ```pascal const N=30; var a: array [1..N] of longint;     i, k, m: longint; begin   for i:=1 to N do readln(a[i]); ``` |

| Алгоритмический язык |
|---|
| ```algo алг нач   цел N=30   целтаб a[1:N]   цел i, k, m   нц для i от 1 до N     ввод a[i]   кц ``` |

В качестве ответа Вам необходимо привести фрагмент программы, который должен находиться на месте многоточия.

Accepted Answer

Фрагмент программы (см. решение выше для каждого языка)

Answer

Идея решения: сначала подсчитать количество элементов, оканчивающихся на 4, затем заменить все такие элементы на это количество и вывести результат.

Алгоритм состоит из двух проходов по массиву:

1. **Первый проход** — подсчёт элементов, оканчивающихся на 4 (проверяем остаток от деления на 10).
2. **Второй проход** — замена найденных элементов на полученное количество и вывод массива.

**Решение на Python:**

```python
k = 0
for i in range(0, n):
    if a[i] % 10 == 4:
        k += 1

for i in range(0, n):
    if a[i] % 10 == 4:
        a[i] = k
    print(a[i])
```

**Решение на Паскале:**

```pascal
k := 0;
for i := 1 to N do
begin
  if (a[i] mod 10 = 4) then
    k := k + 1;
end;

for i := 1 to N do
begin
  if (a[i] mod 10 = 4) then
    a[i] := k;
  writeln(a[i])
end;
```

**Решение на алгоритмическом языке:**

```algo
k := 0
нц для i от 1 до N
  если mod(a[i], 10) = 4 то
    k := k + 1
  все
кц

нц для i от 1 до N
  если mod(a[i], 10) = 4 то
    a[i] := k
  все
  вывод a[i], нл
кц
```

Задание №25ПрограммированиеЕГЭ по информатике