Склавиатуры задается число n не превышающее 20, определяющее количество элементов одномерного целочисленного массива. затем вручную заполняется сам массив из n элементов. особым элементом этого массива назовём элемент, значение которого больше своего индекса (порядкового номера). нумерация индексов начинается с 1. найти сумму особых элементов массива. входные данные: натуральное число n и n целочисленных элементов массива. выходные данные: число – сумма особых элементов массива.

ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\", Приём;

ПЕР
  массив: ДОСТУП К РЯД ИЗ ЦЕЛ;
  N, сч, сумма: ЦЕЛ;

УКАЗ
  Вывод.Цепь("Введите N: ");
  N := Приём.Число();
  СОЗДАТЬ(массив, N);
  Вывод.Цепь(".^Введите элементы массива:^");
  сумма := 0;
  ОТ сч := 0 ДО N - 1 ВЫП
    массив[сч] := Приём.Число();
    Вывод.Цепь(" ");
    ЕСЛИ массив[сч] > сч ТО
      УВЕЛИЧИТЬ(сумма, массив[сч])
    КОН
  КОН;
  Вывод.ЧЦел("^Сумма особых элементов: %d.", сумма, 0, 0, 0)

КОН Задание.