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

Просто срочно нужна программа

В принципе, это почти тот же Паскаль, просто замени служебные слова, и всё (не знаю, правда, есть ли там СОЗДАТЬ (динамический массив) и т. п.).

Можно не создавать массив, а сделать его длиной 20, а потом просто подсчитать количество введённых чисел.

Ну в задании не было ж написано, что нужен Паскаль. Так что извиняй, что написано, то и решено.

Всё равно спасибо

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