• Дан одномерный числовой массив. Определить в нём число соседств двух чисел разного знака. (Паскаль ABC)

Ответы 1

  • // PascalABC.NET 3.1, сборка 1250 от 28.05.2016begin  var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;  Writeln('Число соседств пар чисел разного знака равно ',    a.Pairwise.Where(x->x[0]*x[1]<0).Count)end.Тестовое решениеn= 157 4 42 -46 12 -34 -58 -49 56 46 -20 30 -22 2 -74Число соседств пар чисел разного знака равно 9
    • Автор:

      sourdough
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

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

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

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