в одномерном массиве состоящий из n действительных элементов вычислить произведение элементов массива с четными элементами. Сумму элементов массива расположенных между первым и последним нулевым элементами. Сделать нужно в Паскале, создать свой модуль

// PascalABC.NET 3.2, сборка 1485 от 15.06.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandomReal(15,-10,10); a.Println;
  Writeln('Элементов, больших первого, ',
      a.Where(x->x>a[0]).Count)
end.

Пример
1.32138581542363 -7.42206571503639 -8.75516477914302 6.17963798166236 -4.88329186797295 6.02313704603498 -5.68947898023272 -4.43705633023617 2.51164194779081 -3.27493339463833 8.22698325767507 -7.95714398750902 4.07602354608291 -2.3214872238792 4.90172023647545
Элементов, больших первого, 6

N = int(input())

if N == 1:

   exit(0)

 

bacteria = [0] * N

for i in range(0, N):

   bacteria[i] = int(input())

 

prefix_sum = [bacteria[0]] * N

for i in range(1, N):

   prefix_sum[i] = prefix_sum[i - 1] + bacteria[i]

ans = [0] * N

if bacteria[N-1] > bacteria[0]:

   ans[N - 1] = 1

for i in reversed(range(2, N)):

   if ans[i] == 1:

       prev = i - 1

       if prefix_sum[prev] > bacteria[i] and bacteria[0] < bacteria[prev]:

           ans[prev] = 1

for i in range(N):

   print(ans[i])

Объяснение:

g++-GNU C++ 8.3.1