Надо к этим координатам блок схему и программу.

Pascalabc.net 3.4.2, сборка 1881 от 19.11.2018 внимание! если программа не работает, обновите версию!

begin

  var n : = readlninteger('n=');

  var r : = new integer[n];

  repeat

    var a : = readlnstring.tochararray;

    if a.length < > n then break;

    if a.where(c -> c = '+').count = 1 then

      inc(r[a.indexof('+')])

  until false;

  r.transform(t -> t > = 0.07 * n ? 1 : 0);

  r.numerate.where(t -> t[1] = 1).select(t -> t[0]).println

end.

пример

(окончание ввода - строка длины отличной от n)

n= 5

-+

--+--

-+

+

-+

--+--

-+

+

+

-+

1 2 3 5

1. в вкладке  "вставка"  нажмите кнопку  "звук"  и выберите пункт  "аудиофайлы", которые на компьютере. 2. в проводнике найдите нужный музыкальный файл и выберите его, то есть  "вставив". 3) при выделенном на слайде значке звука нажмите на вкладке  "воспроизведение" кнопку  "воспроизводить в фоне". оживить? : ) надеюсь, вы имели ввиду анимацию. все довольно просто. вот алгоритм: 1) выделите текст или объект, к которому нужно добавить анимацию. 2) откройте вкладку  "анимации"  и выберите эффект анимации. 3) нажмите кнопку  "параметры эффектов"  и выберите нужный вариант.