Предмет: Информатика, автор: Vlad1591997

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

Ответы

Автор ответа: therealcf2014
0
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.
Похожие вопросы
Предмет: Математика, автор: novoepokolenie7