Question

вычислить сумму индексов нулевых элементов одномерного массива х[1..n]

Answer 1

PascalABC.NET 3.3.5, сборка 1648 от 31.03.2018
Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(ReadInteger('n='),-10,10); a.Println;
  var s:=0;
  for var i:=0 to a.Length-1 do
    if a[i]=0 then s+=i+1;
  Writeln('Сумма индексов нулевых элементов равна ',s)
end.

Пример
n= 20
-4 -8 -5 -5 0 3 10 3 -9 6 -4 -3 -6 8 -1 -8 2 -7 0 6
Сумма индексов нулевых элементов равна 24