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

Входные данные: натуральное число N и N целочисленных элементов массива.

Выходные данные: число - сумма особых элементов массива.

Написать исходный код паскаль

Question

Информатика

Рувим

8 августа, 22:50

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

Входные данные: натуральное число N и N целочисленных элементов массива.

Выходные данные: число - сумма особых элементов массива.

Написать исходный код паскаль

+4

Ответы (1)

Знаете ответ на вопрос?

Вяча · Answer 1

Var

i, n, summ: integer;

mas: array[1 ... 20] of integer;

begin

n : = 0;

summ : = 0;

while n < = 0 do

begin

writeln ('enter N (1-20) = ') ;

read (n) ;

end;

for i : = 1 to n do

begin

read (mas[i]) ;

if mas[i] > i then

summ : = summ + mas[i]

end;

writeln ('sum = ', summ) ;

end.