• В числовой последовательности из N произвольных целых чисел определить количество пар соседних элементов, сумма модулей которых равна модулю заданного числа М.
    Спасибо)

Ответы 1

  • //В числовой последовательности из N произвольных целых чисел определить количество пар соседних элементов, //сумма модулей которых равна модулю заданного числа М.function CountPair(N, m: integer; a: array of integer): integer;begin result := 0; Assert(N >= 0); for var i := 0 to a.Length - 2 do begin if abs(a[i]) + abs(a[i+1]) = abs(m) then result += 1; end;end;begin var n := ReadInteger; var m := ReadInteger; var a: array of integer; Setlength(a, n); for var j := 0 to a.Length - 1 do begin a[j] := ReadInteger; end; Write('Количество пар = ', CountPair(n, m, a));end.
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years