profile
Опубликовано 6 лет назад по предмету Информатика от Dmitriyryyrygr

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

  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
Самые новые вопросы