Question

Дан массив, содержащий 2018 положительных целых чисел, элементы массива могут принимать значения не превышающие 30 000. Необходимо найти количество элементов этого массива, меньших 100 и кратных 5. После этого изменить элементы массива, меньшие 100 и кратные 5, на найденное количество и вывести изменённый массив на экран.

Например, для исходного массива из 5 элементов `112 87 27 95 38` программа должна вывести числа `112 87 27 1 38` по одному числу в строке (все элементы, кратные 5 и меньшие 100, были приравнены количеству таких элементов в исходном массиве).

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

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

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

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

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

Accepted Answer

Фрагмент программы (два цикла: подсчёт k, затем замена и вывод)

Answer

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

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

1. **Первый проход** — подсчёт элементов, которые одновременно меньше 100 и кратны 5.
2. **Второй проход** — замена найденных элементов на подсчитанное количество и вывод всего массива.

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

```python
k = 0
for i in range(0, n):
    if a[i] % 5 == 0 and a[i] < 100:
        k += 1

for i in range(0, n):
    if a[i] % 5 == 0 and a[i] < 100:
        a[i] = k
    print(a[i])
```

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

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

for i := 1 to N do
begin
    if (a[i] mod 5 = 0) and (a[i] < 100) then
        a[i] := k;
    writeln(a[i]);
end;
```

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

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

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

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