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

#include <iostream>

#include <vector>

using namespace std;

signed main(){

   const int n = 200;

   int ans = 1;

   vector<int> a(n+1);

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

       cin >> a[i];

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

   }

   cout << ans;

}

PascalABC.NETbegin var z := ArrRandom(200, 1, 50); z.Println; z[4::5].Aggregate(BigInteger.One,(p,x)->(p*x)).Printend.

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

Поскольку протестировать программу без файла нельзя, вот код, нужный файл. // pascalabc.net 3.3, сборка 1579 от 18.11.2017 // внимание! если программа не работает, обновите версию! type   fint=file of integer; begin   var f: fint;   assign(f,'integers.bin'); rewrite(f);   seqrandom(20,-50,50).foreach(t-> write(f,t));   f.close end. а теперь, собственно, решение type   fint=file of integer; begin   var f: fint;   assign(f,'integers.bin'); reset(f);   var k: =0;   var b: integer;   while not eof(f) do begin       read(f,b);       if b.iseven then k+=1       end;   f.close;   writeln('кол-во четных компонент файла равно ',k) end. и последнее - программа распечатки значений компонент файла. для контроля. type   fint=file of integer; begin   var f: fint;   assign(f,'integers.bin'); reset(f);   var b: integer;   while not eof(f) do begin read(f,b); print(b) end;   writeln;   f.close end.