Question

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

Answer 1

var n,i,summa:integer;
x:array[1..100]of integer;
begin
  Read(n);
  summa:=0;
  for i:=1 to n do Readln(x[i]);
  for i:=1 to n do begin
  if x[i]=0 then inc(summa);
  Writeln('Сумма индексов=',summa);
end.

Answer 2

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