Question

Дан массив из 2000 элементов. Хорошей парой называется пара соседних элементов, оба из которых оканчиваются на 9. Посчитайте количество хороших пар. Каждый элемент по модулю не превышает 30 000. В ответе укажите фрагмент программы на месте многоточия. Разрешено не использовать некоторые из инициализированных переменных, но запрещено пользоваться переменными, не указанными ниже. | Бейсик | Python | | --- | --- | | CONST N = 2000 DIM A (1 TO N) AS INTEGER DIM I, J, K AS INTEGER FOR I = 1 TO N INPUT A(I) NEXT I … END | // допускается также использовать // две целочисленные переменные // j и k a = [] n = 2000 for i in range(0, n): a.append(int(input())) … | | Паскаль | Алгоритмический язык | | const N = 2000; var a: array [1..N] of integer; i, j, k: integer; begin for i := 1 to N do readln(a[i]); … end. | алг нач цел N = 2000 целтаб a[1:N] цел i, j, k нц для i от 1 до N ввод a[i] кц … кон | | Си++ | | #include #define N 2000 int main() { int a[N]; int i, j, k; for (i = 0; i < N; i++) cin >> a[i]; … return 0; } |

Accepted Answer

```pascal
j := 0;
for i := 2 to N do
  if (abs(a[i-1]) mod 10 = 9) and (abs(a[i]) mod 10 = 9) then
    j := j + 1;
writeln(j);
```

Answer

Идея решения: перебрать все соседние пары элементов и подсчитать те, у которых оба числа оканчиваются на цифру 9.

Для проверки окончания числа на 9 используем операцию взятия остатка от деления на 10. Поскольку элементы могут быть отрицательными, применяем функцию абсолютного значения.

Проходим по массиву со второго элемента (индекс 1 в Паскале, индекс 1 в цикле от 2 до N), проверяем пару текущего и предыдущего элементов, и если оба оканчиваются на 9, увеличиваем счётчик.

**Паскаль:**
```pascal
j := 0;
for i := 2 to N do
  if (abs(a[i-1]) mod 10 = 9) and (abs(a[i]) mod 10 = 9) then
    j := j + 1;
writeln(j);
```

**Python:**
```python
j = 0
for i in range(1, n):
    if abs(a[i-1]) % 10 == 9 and abs(a[i]) % 10 == 9:
        j += 1
print(j)
```

**Алгоритмический язык:**
```algo
j := 0
нц для i от 2 до N
  если (mod(abs(a[i-1]), 10) = 9) и (mod(abs(a[i]), 10) = 9) то
    j := j + 1
  кц
вывод j
```

**Си++:**
```cpp
j = 0;
for (i = 1; i < N; i++)
  if (abs(a[i-1]) % 10 == 9 && abs(a[i]) % 10 == 9)
    j++;
cout << j;
```

Бейсик	Python
CONST N = 2000 DIM A (1 TO N) AS INTEGER DIM I, J, K AS INTEGER FOR I = 1 TO N INPUT A(I) NEXT I … END	// допускается также использовать // две целочисленные переменные // j и k a = [] n = 2000 for i in range(0, n): a.append(int(input())) …
Паскаль	Алгоритмический язык
const N = 2000; var a: array [1..N] of integer; i, j, k: integer; begin for i := 1 to N do readln(a[i]); … end.	алг нач цел N = 2000 целтаб a[1:N] цел i, j, k нц для i от 1 до N ввод a[i] кц … кон
Си++
#include #define N 2000 int main() { int a[N]; int i, j, k; for (i = 0; i < N; i++) cin >> a[i]; … return 0; }

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