Question

Дан целочисленный массив из 30 элементов. Элементы массива могут принимать целые значения от 0 до 10 000 включительно. Опишите на одном из языков программирования алгоритм, который находит сумму элементов массива, меньших 200 и при этом кратных 5, а затем заменяет каждый такой элемент на число, равное найденной сумме. Гарантируется, что хотя бы один такой элемент в массиве есть. В качестве результата необходимо вывести изменённый массив, каждый элемент выводится с новой строчки. Например, для исходного массива из шести элементов: ``` 20 41 15 27 20 30 54 ``` программа должна вывести следующий массив: ``` 20 41 135 27 135 30 54 ``` Исходные данные объявлены так, как показано ниже на примерах для некоторых языков программирования. Запрещается использовать переменные, не описанные ниже, но разрешается не использовать некоторые из описанных переменных. | Паскаль | Python | |---|---| | `const n = 30;`
`var a: array [1..n] of longint;`
`i, j, k: longint;`
`begin`
` for i := 1 to n do readln(a[i]);`
` ...`
`end.` | `a = []`
`n = 30`
`for i in range(0, n):`
` a.append(int(input()))`
`...` | В качестве ответа необходимо привести фрагмент программы, который должен находиться на месте многоточия.

Accepted Answer

Фрагмент программы приведён выше (Python и Паскаль)

Answer

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

**Шаг 1.** Первый проход по массиву: найти сумму элементов, которые одновременно меньше 200 и делятся на 5 нацело.

**Шаг 2.** Второй проход по массиву: для каждого элемента проверить то же условие; если оно выполнено, заменить элемент на вычисленную сумму; вывести элемент.

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

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

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

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

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

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

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