Question

Дан целочисленный массив из 20 элементов. Элементы массива могут принимать целые значения от –10 000 до 10 000 включительно. Опишите на естественном языке или на одном из языков программирования алгоритм, позволяющий найти и вывести количество пар элементов массива, в которых оба числа делятся на 3. В данной задаче под парой подразумевается два подряд идущих элемента массива. Например, для массива из пяти элементов: 6; 2; 9; –3; 6 – ответ: 2.

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

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

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

Accepted Answer

k = 0; for i := 1 to N - 1 do if (a[i] mod 3 = 0) and (a[i+1] mod 3 = 0) then k := k + 1; writeln(k)

Answer

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

Алгоритм:
1. Инициализируем счётчик `k` нулём.
2. Проходим по индексам от 1 до N–1 (или от 0 до N–2 в зависимости от языка).
3. Для каждой пары соседних элементов проверяем условие: оба элемента делятся на 3 (остаток от деления на 3 равен нулю).
4. Если условие выполнено, увеличиваем счётчик на 1.
5. Выводим итоговое значение счётчика.

**Паскаль:**
```pascal
k := 0;
for i := 1 to N - 1 do
begin
  if (a[i] mod 3 = 0) and (a[i+1] mod 3 = 0) then
    k := k + 1;
end;
writeln(k);
```

**Си++:**
```cpp
k = 0;
for (i = 0; i < N - 1; i++)
{
  if (a[i] % 3 == 0 && a[i+1] % 3 == 0)
    k++;
}
cout << k << endl;
```

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

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

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