Быстрее нужен ответ на C++ Чтобы стать королем Codeforces, Курони должен решить следующую задачу.

Ему даны n чисел Курони посчитать ∏1≤i
Если вы не знакомы с короткой формой записи, ∏1≤i
Входные данные
Первая строка содержит два целых числа n, m (2≤n≤2⋅105, 1≤m≤1000) — количество чисел и модуль.

Вторая строка содержит n целых чисел a1,a2,…,an (0≤ai≤109).

Выходные данные
Выведите единственное число — ∏1≤i
Примеры
входные данныеСкопировать
2 10
8 5
выходные данныеСкопировать
3
входные данныеСкопировать
3 12
1 4 5
выходные данныеСкопировать
0
входные данныеСкопировать
3 7
1 4 9
выходные данныеСкопировать
1

1,2,3,4,5,6,8

Объяснение:

Что напечатается:

1

3

5

6

2

4

6

8

4

6

8

При вызове F(1) печатается 1. Дальше вызовется F(3)

Напечатается 3. Вызовется F(5)

Напечатается 5. F(7) не вызывается, т.к. 7>5

Теперь вызывается вторая функция для F(3), то есть F(6)

Печатается 6. Дальше вызывается вторая функция для F(1), то есть F(2)

Печатается 2. Вызывается первая функция для F(2), т.е. F(4).

Печатается 4. Вызывается первая функция для F(4), т.е. F(6).

Печатается 6. Вызывается вторая функция для F(4), т.е. F(8)

Печатается 8. Вызывается вторая функция для F(2), т.е. F(4)

Печатается 4. Вызываются первая и вторая функции F(6) и F(8)

Печатается 6

Печатается 8

Var a,b:array [1..100,1..100] of real;
    current_row,current_column,rows,columns:integer;

begin
  readln(rows);
  readln(columns);

  for current_row := 1 to rows do begin
    writeln();
    for current_column := 1 to columns do begin
      read(a[current_row,current_column]);
      b[current_row,current_column] :=a [current_row,current_column] / 8;
    end;
  end;

  for current_row := 1 to rows do begin
    writeln();
    for current_column := 1 to columns do
      write(b[current_row,current_column]:4, ' ');
  end;
end.