Помогите пожалуйста, в массиве чисел z1, z2, ..., z200 найти произведение чисел z5, z10,...

+785 голосов
3.5m просмотров

Помогите пожалуйста, в массиве чисел z1, z2, ..., z200 найти произведение чисел z5, z10, ..., z200.


Информатика | 3.5m просмотров
Дано ответов: 2
+137 голосов

#include

#include

using namespace std;

signed main(){

   const int n = 200;

   int ans = 1;

   vector a(n+1);

   for(int i = 1; i <= n; i++){</strong>

       cin >> a[i];

       if(i % 5 == 0) ans *= a[i];

   }

   cout << ans;</strong>

}

(150k баллов)
+103 голосов

PascalABC.NET

Ответ:

  • begin
  • var z := ArrRandom(200, 1, 50);
  • z.Println;
  • z[4::5].Aggregate(BigInteger.One,(p,x)->(p*x)).Print
  • end.

Пример работы:

(3.7k баллов)