Question

Напишите программу на паскале, которая считывает число n, а затем ещё n чисел .
Выведите сумму индексов чисел , оканчивающихся на 7 , нумерация с 1.

Answer 1

===== PascalABC.NET =====

begin

 var n := ReadInteger;

 var a := ReadArrInteger(n);

 var s := 0;

 for var i := 0 to a.High do

   if Abs(a[i]) mod 10 = 7 then

     s += i + 1;

 s.Println;    

end.