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

Задача

Рассмотрим вариант решения задания из учебника Семакин, Хеннер, Шеина 10 класс, Бином: 6. Задана последовательность из N целых чисел. Вычислить сумму тех элементов массива, порядковые номера которых совпадают со значением этого элемента. *Цитирирование задания со ссылкой на учебник производится исключительно в учебных целях для лучшего понимания разбора решения задания. 10 semakin10 pract/3-6/6 98

Подробный ответ

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

Пусть массив состоит из 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.