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

Question

Валерий

19 марта, 11:31

+5

Ответы (1)

Знаете ответ на вопрос?

Аверкий · 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.