Question

задано n чисел ( n<=10). определить сумму чисел , удовлетворяющих условию : модуль числа меньше его номера

Answer 1

var n, i, k, s: integer;
begin
  readln(n);
  for i:=1 to n do
  begin
    readln(k);
    if abs(k)>i then s:=s+k;
  end;
  writeln(s);
end.