• Массив состоит из 20 целых чисел в интервале от -10 до 10. Найти кол-во чисел массива меньше 0 и кратные 2

Ответы 1

  • PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018Внимание! Если программа не работает, обновите версию!

    begin

     var a := ArrRandom(20, -10, 10);

     a.Println;

     Writeln('Искомое количество чисел ',

         a.Where(t -> (t < 0) and t.IsEven).Count)

    end.

    Пример

    0 0 -4 -3 8 -10 -4 10 -1 -5 7 1 5 -10 -8 5 8 7 -8 6

    Искомое количество чисел 6

    • Автор:

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

Войти через Google

или

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

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

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