Задана последовательность из N целых чисел. вычислить сумму тех элементов массива порядковые номера которых совпадают со значением этого элемента

Question

Информатика

Джоанна

27 июня, 07:28

Задана последовательность из N целых чисел. вычислить сумму тех элементов массива порядковые номера которых совпадают со значением этого элемента

+5

Ответы (1)

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

Мегетия · Answer 1

Const

n = 5; / / количество элем массиваvar

a: array [1 ... n] of integer;

sum, i: integer; begin

for i : = 1 to n do

readln (a[i]) ;

for i : = 1 to n do

if a[i] = i then

sum : = sum + a[i];

writeln (sum) ;

end.