Задана последовательность из N целых чисел. вычислить сумму тех элементов массива порядковые номера которых совпадают
со значением этого элемента
Знаешь ответ?
Чтобы оставить ответ, войдите или зарегистрируйтесь.
Ответ или решение 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.
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.
Новые вопросы в разделе Информатика
Адинела
05.10.2022, 08:15
Гаязутдин
05.10.2022, 01:10
Алайбек
05.10.2022, 01:05
Акияма
05.10.2022, 01:00
