Написать программу по блок-схеме на программе

во вложении..

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) Нажмите кнопку "Параметры эффектов" и выберите нужный вариант.