Помогите пожалуйста, очень срочно! Среди N введённых с клавиатуры целых чисел найти...

0 голосов
28 просмотров

Помогите пожалуйста, очень срочно!
Среди N введённых с клавиатуры целых чисел найти кол-во и сумму нечетных отрицательных и произведение кратных 5 не равных 0.


Информатика (15 баллов) | 28 просмотров
Дан 1 ответ
0 голосов
Правильный ответ

//PascalABC.Net 3.1.0.1200
begin
    var a := ReadArrInteger(ReadInteger('n ='));
    Println(a);
    var b := a.Where(x -> (x mod 2 <> 0) and (x < 0)).ToArray;
    Println(b.Count);
    Println(b.Sum);
    Println(a.Where(x -> (x <> 0) and (x mod 5 = 0)).Aggregate(1, (p, x)-> x * p));
end.

(55.0k баллов)