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

Question

Мастридия

25 сентября, 10:48

+4

Ответы (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.