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

Question

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

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.