Question

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

Допускаются реализации на следующих языках:

a = []
n = 40
for i in range(n):
    a.append(int(input()))

const n = 40;
var a: array [0..n-1] of integer;
    i, j, k: integer;
begin
  for i := 0 to n-1 do
    readln(a[i]);
  ...
end.

алг нач
  цел N = 40
  целтаб а[1:N-1]
  цел i, j, k
  нц для i от 1 до N-1
    ввод a[i]
  кц
  ...
кон

Допускаются реализации на следующих языках:

```python
a = []
n = 40
for i in range(n):
    a.append(int(input()))
```

```pascal
const n = 40;
var a: array [0..n-1] of integer;
    i, j, k: integer;
begin
  for i := 0 to n-1 do
    readln(a[i]);
  ...
end.
```

```algo
алг нач
  цел N = 40
  целтаб а[1:N-1]
  цел i, j, k
  нц для i от 1 до N-1
    ввод a[i]
  кц
  ...
кон
```

Accepted Answer

Массив с заменёнными элементами, выведённый построчно

Answer

Идея решения: подсчитать количество элементов, которые одновременно меньше 100 и не кратны 3, затем заменить все такие элементы на найденное количество и вывести результат. Алгоритм состоит из трёх этапов: 1. **Ввод массива**: прочитать 40 целых чисел. 2. **Подсчёт элементов**: пройти по массиву и увеличить счётчик для каждого элемента, удовлетворяющего условиям (меньше 100 И не делится на 3). 3. **Замена и вывод**: пройти по массиву ещё раз, заменить все элементы, удовлетворяющие условиям, на найденное количество, и вывести массив. Реализация на Python: ```python a = [] n = 40 for i in range(n): a.append(int(input())) k = 0 for i in range(n): if a[i] < 100 and a[i] % 3 != 0: k += 1 for i in range(n): if a[i] < 100 and a[i] % 3 != 0: a[i] = k for i in range(n): print(a[i]) ``` Реализация на Паскале: ```pascal const n = 40; var a: array [0..n-1] of integer; i, k: integer; begin for i := 0 to n-1 do readln(a[i]); k := 0; for i := 0 to n-1 do if (a[i] < 100) and (a[i] mod 3 <> 0) then k := k + 1; for i := 0 to n-1 do if (a[i] < 100) and (a[i] mod 3 <> 0) then a[i] := k; for i := 0 to n-1 do writeln(a[i]); end. ``` Реализация на алгоритмическом языке: ```algo алг нач цел N = 40 целтаб а[1:N] цел i, k нц для i от 1 до N ввод a[i] кц k := 0 нц для i от 1 до N если (a[i] < 100) и (mod(a[i], 3) <> 0) то k := k + 1 все кц нц для i от 1 до N если (a[i] < 100) и (mod(a[i], 3) <> 0) то a[i] := k все кц нц для i от 1 до N вывод a[i], нл кц кон ```

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