Написать программу одномерного массива в нем 10 элементов необходимо вывести на экран четные отрицательные числа

sargsyana524 sargsyana524    2   01.09.2019 18:10    0

Ответы
KatyaDro KatyaDro  06.10.2020 10:14
// PascalABC.NET 3.2, сборка 1439 от 09.05.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(10,-50,50); a.Println;
  Write('Четные отрицательные: ');
  a.Where(x->x.IsEven and (x<0)).Println
end.

Пример
29 43 4 -21 -28 -16 -46 7 5 13
Четные отрицательные: -28 -16 -46
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика