Работа 3.6 Упр.6 ГДЗ Семакин 10 класс (Информатика)

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

Нужно просуммировать те элементы массива, для которых номер элемента совпадает со значением самого элемента.

Пусть массив состоит из 10 элементов. Тогда для каждого элемента $$a_i$$ проверяем условие $$a_i = i$$. Если оно выполняется, прибавляем этот элемент к сумме.

var
  a: array [1..10] of integer;
  i, s: integer;
begin
  s := 0;
  for i := 1 to 10 do
    read(a[i]);
  for i := 1 to 10 do
    if a[i] = i then
      s := s + a[i];
  for i := 1 to 10 do
    if a[i] = i then
      write(a[i], ‘ ‘);
  writeln;
  writeln(‘Summ = ‘, s);
  readln;
end.

Ответ

Сумма элементов массива, у которых номер равен значению элемента, вычисляется по условию $$a_i = i$$.