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

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

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

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

Question

Информатика

Эсфира

28 сентября, 08:05

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

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

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

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

+5

Ответы (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.