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

ggggbbb90 ggggbbb90    2   02.10.2019 20:01    0

Ответы
Маслинка174 Маслинка174  09.10.2020 12:25
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

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика